NASA Contractor Report 3464 


Statistics of Some Atmospheric 
Turbulence Records Relevant to 
Aircraft Response Calculations 


William D. Mark and Raymond W. Fischer 


CONTRACT NAS M4837 
SEPTEMBER 1981 


rvi/NSA 



TECH LIBRARY KAFB, NM 


NASA Contractor Report 3464 


INI 



ill 

illll 

□ Dhli' 


a 


Statistics of Some Atmospheric 
Turbulence Records Relevant to 
Aircraft Response Calculations 


William D. Mark and Raymond W. Fischer 
Bolt Beranek and Newman Inc. 

Cambridge^ Massachusetts 


Prepared for 

Langley Research Center 

under Contract NAS 1-14837 


IVI/\SA 

National Aeronautics 
and Space Administration 

Scientific and Technical 
Information Branch 


1981 




TABLE OF CONTENTS 


page 

LIST OP FIGURES vli 

SUMMARY 1 

TURBULENCE MODEL 2 

MAXIMUM LIKELIHOOD ESTIMATION OP THE 
INTEGRAL SCALE AND INTENSITY OP THE 
VERTICAL RECORD PROM FLIGHT 8 RUN 2 
(CONVECTIVE CONDITIONS) 3 

CONSTRAINED LEAST-SQUARES ESTIMATION OP 
AUTOCORRELATION FUNCTION PARAMETERS OP 
LATERAL RECORD PROM FLIGHT 32 RUN 4 
(WIND-SHEAR CONDITIONS) 8 

CONSTRAINED LEAST-SQUARES ESTIMATION OP 
AUTOCORRELATION FUNCTION PARAMETERS OF 
LATERAL RECORD PROM FLIGHT 30 RUN 8 
(MOUNTAIN-WAVE CONDITIONS) 17 

CONSTRAINED LEAST-SQUARES AND MAXIMUM 
LIKELIHOOD ESTIMATION OP AUTOCORRELATION 
FUNCTION PARAMETERS OF VERTICAL RECORD 
FROM FLIGHT 30 RUN 8 (MOUNTAIN-WAVE 
CONDITIONS) 2 8 

WAVENUMBER SPECTRAL DENSITY OF INSTANT- 
ANEOUS VARIANCE OF "PAST" COMPONENT OF 
VERTICAL RECORD PROM PLIGHT 30 RUN 8 
(MOUNTAIN-WAVE CONDITIONS) 36 

PROBABILITY DENSITY FUNCTIONS OP IN- 
STANTANEOUS VARIANCE a|(t) AND SLOW TUR- 
BULENCE COMPONENT Ws(t) OF VERTICAL 
RECORD PROM PLIGHT 30 RUN 8 (MOUNTAIN- 
WAVE CONDITIONS) 4l 

CONSTRAINED LEAST-SQUARES ESTIMATION OP 
AUTOCORRELATION FUNCTION PARAMETERS OP 
LONGITUDINAL RECORD FROM PLIGHT 30 RUN 8 
(MOUNTAIN-WAVE CONDITIONS) AND VERTICAL 
AND LONGITUDINAL RECORDS PROM FLIGHT 32 
RUN 4 (WIND-SHEAR CONDITIONS) 45 


111 



TABLE OF CONTENTS (Cont. ) 


page 

METHODS FOR COMPUTATION OP THE 

INTEGRAL SCALE AND INTENSITY OP THE 

"SLOW" TURBULENCE COMPONENT 63 

APPENDIX A INTRODUCTION TO COMPUTER PROGRAMS 69 

APPENDIX B MAXIMUM LIKELIHOOD ESTIMATION OF THE 
INTEGRAL SCALE AND VARIANCE OP VON 
KARMAN TURBULENCE 71 

Program Outlines and Usage 71 

Program ATURB2.F4 71 

Program PART2.P4 72 

APPENDIX C CONSTRAINED LEAST-SQUARES ESTIMATION 

OP TURBULENCE AUTOCORRELATION FUNCTION 
PARAMETERS 83 

Program Outlines and Usage 83 

Program ATURB3.F4 83 

Program PART5.F4 83 

Program PINAL. P4 84 

APPENDIX D POWER SPECTRAL DENSITY OP THE INSTANT- 
ANEOUS VARIANCE a|(t) 90 

Program Outlines and Usage 90 

Program ATURB4 90 

Program ITEM3.F4 91 

APPENDIX E PROBABILITY DENSITY ESTIMATION OF THE 
INSTANTANEOUS VARIANCE af(t) AND THE 
"SLOW" TURBULENCE COMPONENT Ws(t) 101 

Program Outlines and Usage 101 

Program MOMENT. P4 101 

Program GDIST6.P4 102 

Program ITEM4.P4 102 

Iv 



TABLE OF CONTENTS (Cont.) 


page 

APPENDIX F COMPUTER PROGRAM LISTING 109 

Subroutine AKl 110 

Subroutine AK 112 

Subroutine AKDAT (for use with AK) . . 115 

Subroutine AKDAT (for use with AKl) . 117 

Subroutine ANRPl 119 

Program ATURMA 121 

Program ATURB2 127 

Program ATURB3 13^ 

Program ATURB4 l4l 

Subroutine BIN 1^7 

Subroutine BINSQ l49 

Subroutine CFPTl 151 

Subroutine CFFT 154 

Subroutine DGELG 157 

Subroutine FACl l62 

Program FINAL l64 

Subroutine GAM I 78 

Program GDIST 6 I 80 

Subroutine HPDES l84 

Program ITEM3 I 86 

Program ITEM4 19 1 

Program MOMENT 194 

Subroutine PARI I 98 

Subroutine PAR2 200 

Subroutine PARAB 202 

Program PART 2 204 

Program PART5 210 

Subroutine SIMP2 213 


V 



TABLE OF CONTENTS (Cone.) 


page 

Subroutine SIMP 215 

Subroutine SIMQ 217 

Subroutine TRAP3 221 

Subroutine TRAP6 223 


REFERENCES 


225 



LIST OF FIGURES 

page 

Figure 1. 

Low-altitude turbulence records 

4 

2. 

Comparison of smoothed wavenumber 
spectrum computed from vertical record 
shown in Fig. 1 and maximum likelihood 
fit of von Karman transverse spectrum 

5 

3. 

Comparison of autocorrelation function 
computed from vertical record shown In 
Fig. 1 and von Karman transverse 
autocorrelation function 

7 

4. 

Turbulence records containing strong 
"slow" components w (t) 

9 

5. 

Comparison of smoothed wavenumber 
spectrum computed from lateral record 
shown In Fig. 4 and von Karman trans- 
verse spectrum obtained by constrained 
least-squares fit to the (empirical) 
autocorrelation function 

10 

6 . 

Constraint between Of and L for con- 
strained least-squares estimation 
procedure applied to lateral record 
shown In Fig. 4 

11 

7. 

Autocorrelation function of lateral 
record shown in Pig. 4 

12 

8. 

Comparison of autocorrelation function 
computed from lateral record shown in 
Pig. 4 and constrained least-squares 
fit of autocorrelation model of Eq. 
(3.2) 

15 

9. 

Comparison of autocorrelation function 
R(^) of lateral record shown in Fig. 4 
minus autocorrelation function of 

of von Karman component and 
integral least-squares third-degree 
polynomial approximation 

16 

10. 

Turbulence records containing excepr- 
tlonally strong "slow" components 



18 


vll 




Figure 


LIST OF FIGURES (Cont.) 


11. Comparison of smoothed wavenumber 
spectrum computed from lateral record 
shown In Pig. 10 and von Karman 
transverse spectrum obtained by con- 
strained least-squares fit to the 
(empirical) autocorrelation function . 

12. Constraint between af and L for 

constrained least-squares estimation 
procedure applied to lateral record 
shown in Pig. 10 

13. Autocorrelation function of lateral 

record shown in Pig. 10 

l4a. Comparison of autocorrelation function 
computed from lateral record shown 
in Fig. 10 and constrained least- 
squares fit of autocorrelation model 
of Eq. (3.2) 

l4b. Comparison of autocorrelation function 
computed from lateral record shown in 
Fig. 10 and constrained least-squares 
fit of autocorrelation model of 
Eq. (3.2) 

15. Comparison of autocorrelation function 
R(0 of lateral record shown in Fig. 

10 minus autocorrelation function 
af(^;L) of von Karman component and 
integral least-squares third-degree 
polynomial approximation 

16. Comparison of smoothed wavenumber 

spectrum computed from vertical 
record shown in Fig. 10 and von 
Karman transverse spectrum obtained 
by constrained least-squares fit to 
the (empirical) autocorrelation 
function 

17. Constraint between af and L for 

constrained least-squares estimation 
procedure applied to vertical record 
shown in Fig. 10 

18 . Autocorrelation function of vertical 

record shown in Pig. 10 


page 

19 

20 
21 

22 

23 

2H 

29 

30 

31 


vlll.. ■ 


LIST OF FIGURES (Cont. ) 


Figure 


19. Comparison of autocorrelation function 
computed from vertical record shown 

in Fig. 10 and constrained least- 
squares fit of autocorrelation 
model of Eq. (3.2) 

20. Comparison of autocorrelation function 
R(^) of vertical record shown in Fig. 
10 minus autocorrelation function 

of von Karman component and 
Integral least-squares third-degree 
polynomial approximation 

21. Wavenumber spectra of instantaneous 
variance C;^(t) of "fast" component 
Wf(t) of vertical record shown in 

Fig . 10 

22. Wavenumber spectra of instantaneous 

variance crfCt) of "fast" component 
Wf(t) of vertical record shown in 
Fig. 10 

23. Probability density functions of 

Instantaneous variance a^(t) of the 
"fast" component wf(t) of vertical 
record shown in Fig. 10 

24. Estimate of the probability density of 

the "slow" component Ws(t) of the 
vertical record shown in Fig. 10 using 
the Gram-Charlier expansion and 
moments through the fourth 

25 . Comparison of smoothed wavenumber 

spectrum computed from longitudinal 
record shown in Fig. 10 and von 
Karman longitudinal spectrum obtained 
by constrained least-squares fit to 
the (empirical) autocorrelation 
function 

26 . Comparison of smoothed wavenumber 

spectrum computed from vertical record 
shown in Fig. 4 and von Karman trans- 
verse spectrum obtained by constrained 
least-squares fit to the (empirical) 
autocorrelation function 


page 

32 

33 

38 

39 
42 

44 

46 

47 


lx 



LIST OF FIGURES (Cont. ) 


Figure 


27 . Comparison of smoothed wavenumber 

spectrum computed from longitudinal 
record shown in Fig. 4 and von 
Karman longitudinal spectrum 
obtained by constrained least- 
squares fit to the (empirical) 
autocorrelation function 

28 . Constraint between af and L for con- 

strained least-squares estimation 
procedure applied to longitudinal 
record shown in Fig. 10 

29 . Autocorrelation function of longitudinal 
record shown in Fig. 10 (mountain- 

wave conditions) 

30 . Autocorrelation function of vertical 

record shown in Fig. 4 (wind-shear 
conditions) 

31 . Autocorrelation function of longitudinal 

record shown in Fig. 4 (wind-shear 
conditions) 

32 . Comparison of autocorrelation function 
computed from longitudinal record 
shown in Pig. 10 and constrained least- 
squares fit of autocorrelation model 

of Eq. ( 3 . 2 ) 

33 . Comparison of autocorrelation function 
computed from vertical record shown 

in Pig. 4 and constrained least-squares 

fit of autocorrelation model of 

Eq. (3.2) 

34 . Comparison of autocorrelation function 

computed from longitudinal record 
shown in Pig. 4 and constrained least- 
squares fit of autocorrelation model 
of Eq. (3.2) 

35 . Comparison of autocorrelation function 

R(^) of longitudinal record shown in 
Pig. 10 minus autocorrelation function 
a|*(f)K(^;L) of von Karman component and 
integral least-squares third-degree 
polynominal approximation 


page 

48 

50 

51 

51 

52 

53 

54 

55 

56 


X 



LIST OF FIGURES (Cont,) 


page 

Figure 36. Comparison of autocorrelation function 
R(^) of vertical record shown in Pig. 

4 minus autocorrelation function 

of von Karman component and 
integral least-squares third-degree 
polynomial approximation 57 

37. Comparison of autocorrelation function 
R(^) of longitudinal record shown in 
Fig. 4 minus autocorrelation function 
aJcj)j^(C;L) of von Karman component and 
integral least-squares third-degree 
polynomial approximation 58 

B.l. TTY printout for running program 

ATURB2 73 

B.2. Output data file PHILK 74 

B.3. Output data file AUTO 75 

B.4. Output data file DSPS 76 

B.5. TTY printout for running program PART2. 79 

B.6. Output data file LG 80 

B.7. Output data file PHIXI 8l 

B. 8. Output data file PHIK 82 

C. l. Teletype printout for running PART5 ... 85 

C.2. Teletype printout for running program 

FINAL 87 

C.3. Output data file ITM2 88 

C. 4. Output data file ITM2L 89 

D. l, Teletype printout for running ATURB4 .. 92 

D.2. Output data file PHILK 93 

D.3. Output data file AUTO 94 

D.4. Output data file FPSD2 95 

D.5. Output data file AUTF2 96 

D.6. Teletype output for running ITEM3 98 

D.7. Output data file RSIGF 99 

D.8. Output data file PHIF 100 

xi 



LIST OF FIGURES (Cone,) 

page 

Figure E.l. Teletype printout of inputs and out- 
puts of program MOMENT 103 

E.2. Teletype printout for running GDIST6 . 104 

E.3. Teletype printout for running ITEM4 .. 106 

E.4. Output data file PROB 107 


xil 



SUMMARY 


This report Illustrates the results of application to 
turbulence velocity records of several new methods for 
characterizing atmospheric turbulence that are described in 
Ref. 1. The methods Illustrated Include maximum likelihood 
estimation of the Integral scale and intensity of records 
obeying the von Karman transverse power spectral form, con- 
strained least-squares estimation of the parameters of a 
parametric representation of autocorrelation functions, 
estimation of the power spectral density of the Instantaneous 
variance of a record with temporally fluctuating variance, 
and estimation of the probability density functions of 
various turbulence components. The report also contains 
descriptions of the computer programs used in the computa- 
tions, and a full listing of these programs. The computa- 
tional methods Illustrated herein were developed by the 
first named author. The computer programs and their explan- 
ation contained in the Appendices were written and exercised 
by the second named author. 



TURBULENCE MODEL 


In the work described In this report,^ we shall assume 
that the turbulence velocity records under consideration can be 
modeled as 

w(t) = Wg(t) + w^(t) 

= Wg(t) + a^(t)z(t), (1.1) 

where 

w^(t) = a^(t)z(t) (1.2) 

with 

a^(t) > 0 


and 


E{z(t)} = 0, E{z^(t)} = 1. (1.3) 

The three processes {wg(t)}, {a|'(t)}, and {z(t)} are assumed 
to be stationary and mutually sratlstlcally Independent. 
Furthermore, we shall assume that {z(t)} Is a Gaussian pro- 
cess. The "slow" turbulence component w^(t) Is assumed to 
contain predominately very low frequencies (or large wave- 
numbers) relative to the "fast" component wf(t) which may 
be regarded as ordinary turbulence with a slowly varying 
standard deviation a^(t). This model Is more completely 
described In Section 1 of the companion report [1] or Section 
2 of Its predecessor [5]. 
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MAXIMUM LIKELIHOOD ESTIMATION OF THE INTEGRAL SCALE AND 
INTENSITY OF THE VERTICAL RECORD FROM FLIGHT 8 RUN 2 
(CONVECTIVE CONDITIONS) 

The vertical record shown In Pig. 1 illustrates a tur- 
bulence velocity history with negligible low-frequency com- 
ponent Wg(t). The power spectral density of the vertical 
record in Pig. 1 Is shown In Pig. 2, The method used to 
compute the power spectral density of Pig. 2 Is described In 
Appendix B of Ref. 2 , where the value used for M was 6590.5 ni 
which corresponds to 1024 temporal sample points. Before 
computing the power spectral density of the record. Its mean 
value was computed and removed. 

Also shown in Pig. 2 Is the von Karman transverse power 
spectral density 


^KT^^^ = cr^L 


1 + 188 . 

[l+70.78L^k^]^ 


( 2 . 1 ) 


The values of L and cr^ In Eq. (2.1) — as plotted In Pig. 2 — 
are 


L = 309.4 m, = 1.326 (m/sec)^. 


( 2 . 2 ) 


These values were computed using the maximum likelihood method 
derived in Sec. 3 of Ref. 1. The specific equation used to 
compute the value of L in Eq . (2.2) was Eq. (3.26) of Ref. 1 
with the aid of Eqs. (3.34) and (3.35) of Ref. 1. Details 
of this computation are described In Appendix P of Ref. 1. 
Using the value of L obtained by Eq. (3.26) of Ref. 1, 

Eq. (3.25) of Ref. 1 was then used to compute the values of 
given in Eq. (2.2) above. 

The von Karman transverse spectrum shown in Pig. 2 pro- 
vides an excellent fit to the spectrum computed from the 
turbulence record. In particular, note that asymptotic 
(high wavenumber) slopes of the empirical and von Karman 
spectra agree very well. We also have computed the value of 
directly — by squaring and averaging the time history 
sample points. The value of obtained in this manner was 

cr^ = 1.331 (m/sec)^. (2.3) 
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FIG. 2. COMPARISON OF SMOOTHED WAVENUMBER SPECTRUM COMPUTED FROM VERTICAL 
RECORD SHOWN IN FIG- 1 AND MAXIMUM LIKELIHOOD FIT OF von KARMAN 
TRANSVERSE SPECTRUM. 
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The maximum likelihood method used to compute the value of 
given by Eq. (2.2) is not the same as the squaring and 
averaging procedure used to compute the value of Eq. (2.3) • 
However, quite remarkably, the two values agree to the first 
three significant figures. Since the assumption of a von 
Karman transverse spectrum was used in the computation of 
given by Eq. (2.2), the close agreement of the values of 
given by Eqs . (2.2) and (2.3) provides verification of the 
excellent representation of the empirical spectrum that is 
provided by the von Karman transverse spectrum of Eq. (2.1). 

The autocorrelation function of the vertical record shown 
in Pig. 1 is compared in Pig. 3 with the von Karman transverse 
autocorrelation function: 




(l)j^^(C) = (35/L) 

/ 3 


^ K (3C/L)], 

'/3 


2L -2 


(2.4) 


where 


A 2/? r(ii/6) 

5 r(4/3) ■ ’ 


(2.5) 


where the Kj^(«) in Eq. (2.4) are modified Bessel functions of 
the second kind of order n and r(«) is the gamma function. 
Values of the Bessel functions in Eq. (2.4) were obtained 
from the tabulation of p. 228 of Ref. 4, where we note that 
K (x) = K (x) . The empirical autocorrelation function in 

“"/3 ^3 

Fig. 3 was computed from the vertical record of Pig. 1 by the 
method described in Appendix B of Ref. 2. Both autocorrela- 
tion functions shown in Pig. 3 are normalized to unity at the 
origin. The value of Integral scale L used in the von Karman 
form of Eq. (2.4) is that given by Eq. (2.2). 
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FIG. 3. COMPARISON OF AUTOCORRELATION FUNCTION COMPUTED FROM VERTICAL 

RECORD SHOWN IN FIG. 1 AND von KARMAN TRANSVERSE AUTOCORRELATION 
FUNCTION. 
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CONSTRAINED LEAST-SQUARES ESTIMATION OF AUTOCORRELATION 
FUNCTION PARAMETERS OF LATERAL RECORD FROM FLIGHT 32 RUN 4 

(WIND-SHEAR CONDITIONS) 


The lateral record shown in Fig. 4 illustrates a turbu- 
lence velocity history with a relatively strong low-frequency 
component Ws(t). The power spectral density of the lateral 
record in Fig. 4 is shown in Fig. 5 (solid dots)^ which was 
computed by the method described in Appendix B of Ref. 2 — 
the value of M used in the computation was 9613-3 m which 
corresponds to 1024 temporal sample points. Before computing 
the power spectral density of the record, its mean value 
was computed and removed. 

Also plotted in Pig. 5 is the von Karman transverse spec- 
trum of Eq. (2.1) evaluated from the parameters 

L = 265.5 m, = 5.315 m^/sec^. (3.1) 

These parameter values were arrived at using the constrained 
least-squares estimation method described in Sec. 4 of Ref. 1. 
This method postulates that within an Interval 0 £ ^ “the 

autocorrelation function of a record is of the form 

A ^ 

J(5) = + I , 0 < 5 < 5jj, (3.2) 

1=0 

where a|>(l)j^( ^ ;L) is the appropriate (transverse or longitudinal) 
von Karman autocorrelation function, and the mth degree poly- 
nomial in Eq. (3.2) represents the autocorrelation function 
of the ’’slow" turbulence component Wg(t) within the interval 
0 £ ^ The least-squares estimation procedure constrains 

the relationship between Of and L using the portion of the 
wavenumber spectrum of the record (in the "high-frequency" 
region) between two wavenumbers and as described in 
Sec. 4 of Ref. 1, where in the present case, we used k^ = 
10“^m"^ and = 4 x 10”^m“^. Equation (4.4) of Ref. 1 is 
the equation of constraint. The resulting relationship 
between Of and L for the present example is plotted in Fig. 6. 

Figure 7 displays the autocorrelat ion function of the 
lateral record shown in Pig. 4. To determine the general 
behavior of the constrained least-squares estimation method 
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FIG. 4. TURBULENCE RECORDS CONTAINING STRONG "SLOW" COMPONENTS Ws(t). [WIND SHEAR 

CONDITIONS. AIRCRAFT SPEED 188 m/sec (616 ft/sec).] Ref. 3, Fig. 6, p. 283.) 




FIG. 5. COMPARISON OF SMOOTHED WAVENUMBER SPECTRUM COMPUTED FROM LATERAL 
RECORD SHOWN IN FIG. 4 AND von KARMAN TRANSVERSE SPECTRUM OB- 
TAINED BY CONSTRAINED LEAST-SQUARES FIT TO THE (EMPIRICAL) 
AUTOCORRELATION FUNCTION. Von KARMAN SPECTRUM CHARACTERIZES 
"FAST" TURBULENCE COMPONENT ONLY. 
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FIG. 6. CONSTRAINT BETWEEN Of AND L FOR CONSTRAINED LEAST-SQUARES ESTI- 
MATION PROCEDURE APPLIED TO LATERAL RECORD SHOWN IN FIG. 4. 
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FIG. 7. AUTOCORRELATION FUNCTION OF LATERAL RECORD SHOWN IN FIG. 4. 
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for the autocorrelation function shown in Pig. 7, the method 
was exercised a number of times for the values of and m 
listed in Table 1. 

Pour autocorrelation function representations given 

by Eq, (3.2) for four different sets of values of ^ 

are plotted on expanded scales in Pig. 8 along with the em- 
pirical autocorrelation function R(^) of the lateral record 
shown in Pig. 4. The von Karman transverse spectrum of 
Eq. (2.1) for one of these cases ( = 5998.1 m and m = 3) 
is plotted in Pig. 5 for comparison with the "high-frequency” 
portion of the empirical spectrum. The values of L and 
Of = used in the evaluation of Eq. (2.1) shown in Pig. 5 
are those given by Eq. (3.1), which were taken from Table 1. 
Prom Pig. 5, we see that the asymptotic slope of the empirical 
spectrum is somewhat steeper than the -5/3 slope of the von 
Karman spectrum. Hence, for this record, one of the basic 
assumptions in the constrained least-squares fit method is 
not well satisfied. Because of this discrepancy in slopes, 
none of four curves $(C) shown in Pig. 8 fits well the "von 
Karman" region of the autocorrelation function near ^ = 0. 
Nevertheless, the knee of the von Karman spectrum shown in 
Pig. 5 would appear to have about the right position. 

Plgure 9 displays the autocorrelation function of the 
lateral component of the wind shear record with the von Karman 
autocorrelation component Qf(j)K(C;L) removed. That is, the 
solid curve in Pig. 8 is the autocorrelation function R(^) 
of the lateral record shown in Pig. 4 after subtraction of the 
von Karman autocorrelation function component 

s (3.3) 


evaluated from Eq. (2.4) with the values of L and o^ given by 
Eq. (3.1). The dashed curve is the cubic (3rd degree of 
polynomial) that best represents the solid curve in an inte- 
gral least-squares sense over the lag region from 0 to 10,000 
meters. We see from Pig. 9 that a third-degree polynomial 
represents very nicely the autocorrelation function of the 
slow turbulence component Wg(t) over a 10,000 meter lag in- 
terval. Such polynomial representations are the characteriza- 
tions suggested in Sec. 1 of Ref. 1 for describing the "slow" 
turbulence component Wg(t) for aircraft response calculations. 
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TABLE 1. CONSTRAINED LEAST-SQUARES ESTIMATION OF AUTOCORRELATION FUNCTION PARA- 
METERS FOR WIND-SHEAR LATERAL RECORD 


171 

m 

a } 

m^/sec^ 

L 

m 

0(0) 


a 

1 

a 

2 

a 

3 

1004.5 

1 

5.518 

281.5 

52.28 

46.77 

-.582x10-^ 



1999.6 

1 

6.486 

361.1 

51.68 

45.19 

-.341x10"^ 



3004.2 

1 

6.046 

324.1 

51.76 

45.14 

-.390x10”^ 



3004.2 

2 

5.793 

303.6 

51.81 

46.02 

-.431x10“^ 

.115x10-® 


4496.9 

2 

5.428 

274 .7 

51.96 

46.53 

-.517x10’^ 

.409x10-® 


5998.9 

2 

5.265 

261.8 

51.99 

46.73 

-.542x10"^ 

.468x10-® 


5998.9 

3 

5.315 

265.5 

51.98 

46.66 

-.533x10-^ 

.434x10"® 

.353x10-^' 

7998.6 

3 

4.459 

201.0 

52.29 

47.83 

-.723x10“^ 

.116x10-® 

-.739x10"^® 

9998.2 

3 

4.742 

221.8 

52.20 

47.46 

-.674x10“^ 

.102x10"® 

-.624x10"^° 

9998.2 

4 

4.530 

206.3 

52.28 

47.75 

-.721xi0"2 

.122x10-® 

-.913x10"^® 


a^=. 141x10"'" 


Exact value of R(0) is 53.66 m^/sec^. 



FIG. 8. COMPARISON OF AUTOCORRELATION 
CONSTRAINED LEAST-SQUARES FIT 







SPATIAL L AG. f.m 


FIG. 9. COMPARISON OF AUTOCORRELATION FUNCTION R(C) OF LATERAL RECORD SHOWN IN FIG. 4 MINUS 

AUTOCORRELATION FUNCTION 0 f i('k( 5;L) OF von KARMAN COMPONENT AND INTEGRAL LEAST-SQUARES 
THIRD-DEGREE POLYNOMIAL APPROXIMATION. 




CONSTRAINED LEAST-SQUARES ESTIMATION OF AUTOCORRELATION 
FUNCTION PARAMETERS OF LATERAL RECORD FROM FLIGHT 30 RUN 8 

(MOUNTAIN-WAVE CONDITIONS) 


The lateral record shown in Fig. 10 Illustrates a record 
with an exceptionally strong low-frequency component Wg(t) 
relative to the "fast" component Wf(t). Figures 11 to 15 
Illustrate, respectively, the same quantities for the lateral 
record shown in Fig. 10 that Figs. 5 to 9 displayed for the 
lateral record in Pig. 4. Similarly, Table 2 displays for 
the lateral record In Pig. 10 quantities comparable to the 
quantities displayed In Table 1 for the lateral record In 
Fig. 4. Computations of the material In Table 2 and Figs. 11 
to 15 were carried out using the same methods as In the case 
of Table 1 and Figs. 5 to 9 • 

The value of M used In computing the empirical spectrum 
In Fig. 11 was 10,089 m which corresponds to 1024 temporal 
sample points. The von Karman transverse spectrum plotted In 
Pig. 11 was computed using the parameter values 

L = 128.9 m, = 0.684 m^/sec^ (4.1) 

which correspond to the case ~ 2295.6 meters and a 2nd 
degree polynomial (m=2) in the autocorrelation function 
representation of Eq. (3.2). 

In computing the constraint relationship between a|* and 
L displayed in Pig. 12, the lower and upper wavenumbers used 
were = 10"^m“^ and ^ ^ 10"^m”^. 

D'isQussion, The four fits to the empirical autocorrela- 
tion function shown In Pig. l4(a) Illustrates misleading results 
that the method described in Sec. 4 of Ref. 1 can yield when It 
Is not used properly. Although each of the four fits pro- 
vided by Eq. (3.2) to the empirical autocorrelation function 
appears reasonable to the eye, reference to Table 2 shows 
that the largest Integral scale obtained for these four cases 
Is that corresponding to 6 h ” ^99. 5 meters and m = 1 which 
yielded L = II 8.6 meters, whereas the next largest value of 
L for the four cases Is L = 69.9 meters for the case Ch ” 

896.6 meters and m = 2. The discrepancy between these two 
values of L is quite large. The problem here Is that the 
polynomial In the right-band of Eq. (3.2) Is actually repre- 
senting part of the von Karman portion of the empirical 
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TURBULENCE RECORDS CONTAINING EXCEPTIONALLY STRONG "SLOW" COMPON^TS Ws(t). 
[MOUNTAIN WAVE CONDITIONS. AIRCRAFT SPEED 197 m/sec (646 ft/sec).] (Ref. 3, 
FIG. 10, p. 285.) 







FIG. 11. COMPARISON OF SMOOTHED WAVENUMBER SPECTRUM COMPUTED FROM LATERAL 
RECORD SHOWN IN FIG. 10 AND von KARMAN TRANSVERSE SPECTRUM OB- 
TAINED BY CONSTRAINED LEAST-SQUARES FIT TO THE (EMPIRICAL) AUTO- 
CORRELATION FUNCTION. Von KARMAN SPECTRUM CHARACTERIZES "FAST" 
TURBULENCE COMPONENT ONLY. 
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FIG 13 AUTOCORRELATION FUNCTION OF LATERAL RECORD SHOW IN FIG. 10. 
[FROM MAT PROJECT, NASA LANGLEY RESEARCH CENTER.] 
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FIG. 14(a). COMPARISON OF AUTOCORRELATION FUNCTION COMPUTED FROM LATERAL RECORD SHOWN IN FIG. 10 
AND CONSTRAINED LEAST-SQUARES FIT OF AUTOCORRELATION MODEL OF EQ. (3.2). VALUES OF 
USED IN OBTAINING THE ABOVE RESULTS WERE TOO SMALL. 
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FIG. 14(b). COMPARISON OF AUTOCORRELATION FUNCTION COMPUTED FROM LATERAL RECORD SHOWN IN FIG. 10 
AND CONSTRAINED LEAST -SQUARES FIT OF AUTOCORRELATION MODEL OF EQ. (3.2). 
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FIG. 15. COMPARISON OF AUTOCORRELATION FUNCTION R(C) OF LATERAL RECORD 
SHOWN IN FIG. 10 MINUS AUTOCORRELATION FUNCTION af(C;L) OF 
von KARMAN COMPONENT AND INTEGRAL LEAST-SQUARES THIRD-DEGREE 
POLYNOMIAL APPROXIMATION. 
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TABLE 2. CONSTRAINED LEAST-SQUARES ESTIMATION OF AUTOCORRELATION FUNCTION PARA- 
METERS FOR MOUNTAIN-WAVE LATERAL RECORD 

C m 2 



m 

Uf 

L 

^(0) 


m 


m^/sec^ 

m 


0 

502.5 

0 

.944 

217.2 

28.97 

28.03 

699.5 

1 

. 651 

118.6 

29.12 

28.47 

699.5 

2 

.467 

57.1 

29.35 

28.89 

896.6 

2 

.495 

69.9 

29.26 

28.76 

1103.5 

3 

.455 

50.8 

29.38 

28.92 

1300.5 

3 

.490 

67.4 

29.30 

28.81 

1704.5 

4 

.474 

60.2 

29.37 

28.89 

2295.6 

2 

.684 

128.9 

29.07 

28.39 

2502.5 

3 

.653 

119.1 

29.12 

28.47 





-.109x10“^ 

-.376x10”^ 

.340x10’^ 


-*.272x10'^ 

.187x10-^ 


-.439><10"^ 

.612x10“® 

-.305 10“ 

-.331x10"^ 

.373x10“® 

-.159 10“ 

-.431x10“^ 

.670x10“® 

-.485 10“ 

-.821x10"^ 

.171x10“^ 

a^=.119 10“ 

-.117x10"^ 

.360x10“® 

-.933x10“ 


Exact value of R(0) is 29-22 m^/sec^ 


autocorrelation function that occurs near the origin ^ = 0. 

When this misleading behavior takes place, the value of Of in 
Eq. (3.2) obtained by the least Integral-squared fit Is some- 
what smaller than it should be; hence, the value obtained for 
the Integral scale L also Is too small as can be seen from 
Pig. 12. This misteading behavior can largely be avoided by 
choosing as large as possible and m as small as possible 
consistent with achieving a ''reasonable'^ representation of 
the autocorrelation function of the "slow" component WQ(t) by 
the polynomial in Eq, (d,2),* Following this rule, we would 
never expect to have to choose m larger than 3. Mathematically, 
this misleading behavior is a consequence of the fact that the 
polynomial in the right-hand side of Eq. (3.2) is not ortho- 
gonal to the von Karman autocorrelation function which is 
the first term in the right-hand side. 

In the present example, this problem is aggravated by 
the fact that the asymptotic slope of the empirical spectrum 
shown in Fig. 11 is somewhat steeper than the -5/3 asymptotic 
slope of the von Karman spectrum also shown in Fig. 11. 

(Thus, in this case also, one of the basic assumptions used 
in developing the method is not satisfied by the turbulence 
data. ) 

If we follow the above italicized rule, we see from the 
empirical autocorrelation function shown in Pig. 14(9-) that for 
^ larger than about 750 meters, we cannot reasonably use m = 1 
[which is a linear approximation to the autocorrelation func- 
tion of the "slow" component Wg(t)]; however, if we let m 
Increase to a value of 2 (quadratic approximation) then we 
can reasonably choose to be 2200 meters. Using = 2295.6 

meters and m = 2, we obtained the fit shown in Fig. 14(b) which 
yielded the values of L and a|- given by Eq. (4.1). 

Upon first inspection of Pig. 11, the value of L = 

128.9 ni given by Eq. (4.1) appears too small. However, 
closer inspection shows several (about 4) weak resonances 
between k = 7.5 10”'*m'"^ and k = 1.43 10“^m~^, with the 

spectrum dropping off fairly abruptly beyond the latter 
value until it almost reaches the von Karman curve. Hence, 
we should expect several weak oscillations in the autocorrela- 
tion function with periods equal to the reciprocal values of 
the above frequencies — i.e., periods ranging from 0.70 x 
10^ = 700 m to 0.13 10^ = 1300 m. Referring to Pig. l'4(b), 

we see that our least-squares fit underestimates the empirical 
autocorrelation function at the origin, overestimates at 


*Trade-off criteria between choices of and m are discussed 
in detail in Appendix G of Ref. 1. 
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C = 350 m and again underestimates at ^ = 700 m, which accord- 
ing to the above Is one period of the oscillation with the 
smallest period. At ? = 750 m we see another peak In the 
empirical autocorrelation function, which Is the period of 
the resonance located In the spectrum slightly to the left 
of the resonance at k = 1.43 ^ 10”^m"^. Looking back In the 
region of ^ 350 to 400 m In Pig. l4(b), we see that these two 

oscillations have added In phase In that region to produce 
a relatively large discrepancy between the empirical auto- 
correlation function and our least squares fit. Finally, In 
the region of Pig. l4(b) between ^ = 1200 m and ^ =' 1450 m we 
observe all 4 of the above oscillations adding almost In 
phase In this region — as expected from the appearance of 
the spectrum. Hence, some destructive Interference must have 
occurred In the region near ^ = 750 m which further explains 
why the discrepancy between the empirical and least-squares 
curves Is less near ^ = 750 m than near C = 350 m. Hence, 
the main discrepancies between the empirical and least-squares 
fit of the autocorrelation function shown In Fig. l4(b) can be 
explained by the approximately 4 weak resonances between 
k = 7-5 ^ 10”'*m”^ and 1.43 ^ 10“^m"^ In Fig. 11. If these 
resonances were removed from the empirical spectrum shown In 
Pig. 11, the knee of the von Karman curve would appear to be 
In about the right position. Hence, the values of L and 
given by Eq. (4.1) — which characterize the von Karman com- 
ponent of the turbulence — appear to be about right . 

Finally, we note that the presence of spectral peaks or 
"resonances" such as those discussed above will tend to bias 
the values of L and obtained using the maximum likelihood 
method developed In Sec. 3 of Ref. 1 since this method assumes 
that the turbulence obeys the von Karman spectral form. In 
contrast, such spectral peaks produce oscillations In the 
autocorrelation function, and the constrained least-squares 
estimation procedure developed In Sec. 4 of Ref. 1 tends to 
average out — l.e.. Ignore — these oscillations. The con- 
strained least-squares procedure therefore should produce 
better estimates of the Integral scale and Intensity of the 
von Karman component of turbulence records In these situations. 
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CONSTRAINED LEAST-SQUARES AND MAXIMUM LIKELIHOOD ESTIMATION OF 
AUTOCORRELATION FUNCTION PARAMETERS OF VERTICAL RECORD FROM 
FLIGHT 30 RUN 8 (MOUNTAIN -WAVE CONDITIONS) 


Figures 16 to 20 Illustrate, respectively, the same quan- 
tities for the vertical record shown in Pig. 10 that Figs. 11 
to 15 displayed for the lateral record in Pig. 10. Similarly, 
Table 3 displays for the vertical record in Fig. 10 quanti- 
ties comparable to the quantities displayed in Table 2 for 
the lateral record in Pig. 10. The compulations for the 
material in Table 3 and Figs. 16 to 20 were carried out using 
the same methods as used in the cases of Tables 1 and 2 and 
Pigs. 5 to 15. 

The value of M used in computing the empirical spectrum 
in Fig, 16 was 10,089 m which corresponds to 1024 temporal 
sample points.' This is the same value of M as used in compu- 
tation of the spectrum in Pig. 11 for the lateral component. 

The von Karman transverse spectrum plotted in Pig. 16 
was computed using the parameter values 

L = 68.4 m, cr^ = 0.470 m^/sec^ (5.1) 

which correspond to the case ~ 1202 meters and a second 
degree polynomial (m=2) in the autocorrelation function re- 
presentation of Eq. (3.2). 

In computing the constraint relationship between af- and 
L displayed in Fig. 17, the lower and upper wavenumbers used 
were the same values as those used in the previous two 
examples — namely, = 10“^m~^ and ^ ^ 10~^m“\ 

D'isoussi.on . The vertical record displayed in Fig. 10 
is much better behaved than either of the previous two records 
studied, and this Improved behavior is reflected in our 
results. The record is better behaved for four reasons: 

(1) the asymptotic slope of the empirical spectrum shown in 
Fig. 16 agrees very well with the asymptotic slope of -5/3 
of the von Karman spectrum; (2) the empirical spectrum in 
Pig. 16 has a better developed "knee" than the empirical 
spectra shown in Pigs. 5 and 11; (3) the fractional energy 
in the "resonances" in the spectrum in Pig. I6 is less than 
in the previous two cases as may be seen by comparing the 
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FIG. 16. COMPARISON OF SMOOTHED WAVENUMBER SPECTRUM COMPUTED FROM VERTICAL 
RECORD SHOWN IN FIG. 10 AND von KARMAN TRANSVERSE SPECTRUM OB- 
TAINED BY CONSTRAINED LEAST-SQUARES FIT TO THE (EMPIRICAL) 
AUTOCORRELATION FUNCTION. Von KARMAN SPECTRUM CHARACTERIZES 
"FAST" TURBULENCE COMPONENT ONLY. 
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FIG. 18. AUTOCORRELATION FUNCTION OF VERTICAL RECORD SHOWN IN FIG. 10. 
[FROM MAT PROJECT, NASA LANGLEY RESEARCH CENTER.] 
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FIG. 19. COMPARISON OF AUTOCORRELATION FUNCTION COMPUTED FROM VERTICAL RECORD SHOWN IN FIG. 10 
AND CONSTRAINED LEAST-SQUARES FIT OF AUTOCORRELATION MODEL OF EQ. (3.2). 





FIG, 20. COMPARISON OF AUTOCORRELATION FUNCTION R(c) OF VERTICAL RECORD 
SHOWN IN FIG. 10 MINUS AUTOCORRELATION FUNCTION of 

von KARMAN COMPONENT AND INTEGRAL LEAST-SQUARES THIRD-DEGREE 
POLYNOMIAL APPROXIMATION. 
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TABLE 3. CONSTRAINED LEAST-SQUARES ESTIMATION OF AUTOCORRELATION FUNCTION PARA- 
METERS FOR MOUNTAIN-WAVE VERTICAL RECORD 


5h 

m 

m 

m^/ sec ^ 

L 

m 

$(0) 

^ 0 



^3 

295.6 

0 

.486 

72.7 

1.872 

1.39 




798.1 

1 

.462 

66.4 

1.877 

1.42 

-.157x10-^ 



798.1 

2 

.423 

56.0 

1.877 

1.45 

-.350x10“^ 

.202x10“^ 


995.1 

1 

.446 

62.2 

1.874 

1.43 

-.192x10“^ 



995.1 

2 

.474 

69.8 

1.876 

1.40 

-.745x10“** 

-.101x10“^ 


1202.0 

1 

.437 

59.8 

1.874 

1.44 

-.210x10“^ 



1202.0 

2 

.470 

68.4 

1.876 

1.41 

-.949x10"** 

-.855x10"^ 


1399.0 

1 

.443 

61.1 

1.875 

1.43 

-.201x10"^ 



1399.0 

2 

.443 

61.4 

1.875 

1.43 

-.198x10"^ 

-.194x10-^ 


2502.5 

1 

.488 

73.2 

1.881 

1.39 

-.148x10“^ 



2502.5 

2 

.429 

57.6 

1.874 

1.45 

-.255x10"^ 

.409x10“^ 


2502.5 

3 

.422 

55.9 

1.874 

1.45 

-.280x10"^ 

.632x10“^ 

-.565x10" 

2502.5 

4 

.492 

74.4 

1.870 

1.38 

.110x10“^ 

-.522x10"® 

.323x10" 


a, =-.6l6xio“” 


Exact value of R(0) is 1.812 m^/sec^. 



"oscillations" in Pig. 19 with those in Figs. 8 and 14(13), and 
finally (4) the fraction of the "power" of the record in the 
von Karman component is larger than in the previous two cases 
as is most easily seen by comparing Fig. l8 with Pigs. 7 and 
13. 


In view of the above considerations. It Is not surprising 
to see relatively less spread in the values of L shown In 
Table 3 than found In either of the previous two cases. Ex- 
amination of the empirical autocorrelation function In Fig. 

19 shows that the largest value of for which we can expect 
a 2 nd degree polynomial to represent well the autocorrelation 
function component from the "slow" turbulence component Wg(t) 
Is about “ 1200 m. Hence, the values of L and Of from 
Table 3 that we choose to use for our von Karman curve In 
Fig. 16 were those given by Eq. (5.1) which were obtained 
using Ch ~ 1202 meters and m - 2 . Values of L and a|« from 
the case = 798 meters and m = 1 also would have provided 
reasonable choice (L = 66.4 meters and af- = 0.462 m^/sec^ as 
would have been the values obtained from the case = 995 
meters and m = 2 (L = 69*8 meters and Of = 0.474 m^/sec^). 

Very little discrepancy is found in the values of L from 
these three choices. 

Max'imum Li^kel'ihood Estimation of Integvat Soaie and 
Intensity of von Karman Component . The knee in the empirical 
spectrum shown in Fig. 16 Is sufficiently well developed to 
apply the maximum likelihood method described In Sec . 3 of 
Ref. 1 to estimate the values of L and o^ of the von Karman 
component of the record. The likelihood equations were 
solved using spectrum sample points In the range from k = 

6.5 ^ 10“‘*m“^ to k = 3 X 10'"^m'”^, which the reader may verify 
from Fig. 16 as the range dominated by the von Karman part 
of the spectrum. Values of L and obtained using the maxi- 
mum likelihood method were 

L = 70.0 m, = 0.456 m^/sec^. (5.2) 

Very little difference Is observed among the various values 
of the Integral scale cited above. 
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WAVENUMBER SPECTRAL DENSITY OF INSTANTANEOUS VARIANCE OF "FAST 
COMPONENT OF VERTICAL RECORD FROM FLIGHT 30 RUN 8 
(MOUNTAIN-WAVE CONDITIONS) 


In Sec. 6.2 of Ref. 5^ a method was developed for esti- 
mating the wavenumber spectrum of the instantaneous variance 
a|*(t) of the fast component Wf>(t) of a turbulence record, 
where time is translated to the spatial variable x using the 
relationship x = Vt where V is the aircraft speed. The pro- 
cedure used to compute the wavenumber spectrum of a^(t) is 
as follows : 

(1) High-pass filter the record to eliminate the low 
frequency component Wg(t). In our computations with the 
vertical record from Flight 30 Run 8, we used first and 
second order digital Butterworth filters as described in 
Chapter 12 and Appendix C of Ref. 6. 

(2) Find the wavenumber spectral density and autocorrela 
tlon function of the high-pass filtered record using the 
method described in Appendix B of Ref. 2. 

(3) Square the high-pass filtered record and find the 
wavenumber spectral density and autocorrelation function of 
the squared high-pass filtered record using the method 
described in Appendix B of Ref. 2. 

(4) Compute the wavenumber spectrum of af(t) using the 

formula: , 

= {E[ap}M6(k) + 


V(5)-[R (0)]^-2[R (5)] 

h h h 


[R. (0)]^+2[R (5)] 




where Pq(C) is the Papoulis window function [7] 


36 



1 

TT 


< M 


U| > M - (6.2) 

see Appendix B of Ref. 2. Equation (6.1) Is essentially the 
same as Eq. (6.49) of Ref. 5 except for translation of time t 
to distance x using x = Vt where V Is aircraft speed, and 
Inclusion of the Papoulls window Pq(S) to smooth the fluctua- 
tions normally associated with power spectral estimates of 
empirical waveforms. The aircraft speed for Plight 30 Run 8 
was 197.05 m/sec and the value of M used was 10,089 m which 
corresponded to 1024 sample points. 

The wavenumber spectra obtained by the above procedure 
are shown on log-log coordinates In Fig. 21 for three differ- 
ent high-pass filter cutoff frequencies (wavenumbers), where 
NS designates the number of filter sections used [^], and 
designates the (3 dB) cutoff frequency (wavenumber) of the 
filters . 

Except for statistical fluctuations associated with the 
finite length of the record, the wavenumber spectra $ a(k) 

f 

should be independent of if our basic turbulence model 

w^(t) = a|(t) z(t) ( 6 . 3 ) 

is valid. From Fig. 21, we see that good agreement among the 
three spectra Is obtained for values of k < 10“^m”^. 

For values of k > 10”^m"^, the three spectra are shown 
vertically separated to avoid confusion among the three 
spectra. The agreement In the wavenumber range k > 10" ^m”^ 

Is poorer. However, In this wavenumber region, the locally 
stationary assumption leading to Eq. (6.34) of Ref. 5 is not 
valid — that Is, a basic assumption In the derivation of 
Eq. (6.1) above is that the spectral content of Is negli- 
gible In the region k > 10“^m”^. Hence, the spectra in 
Fig. 21 In the region k > 10“^m”^ cannot be believed. 

The same three spectra of Pig. 21 are plotted on linear 
coordinates In Pig. 22 for the wavenumber region k < 10" ^m"^ 
where the spectra are believed to be valid. 
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WAVENUMBER SPECTRA OF INSTANTANEOUS VARIANCE af(t) OF "FAST" 
COMPONENT Wf(t) OF VERTICAL RECORD SHOWN IN FIG. 10. THE THREE 
SPECTRA SHOWN WERE COMPUTED FROM THE SAME RECORD USING THREE 
DIFFERENT HIGH-PASS CUTOFF WAVENUMBERS. 
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FIG. 22. WAVENUMBER SPECTRA OF INSTANTANEOUS VARIANCE af(t) OF "FAST" COMPONENT Wf(t) OF 
VERTICAL RECORD SHOWN IN FIG. 10. THE THREE SPECTRA SHOWN WERE COMPUTED FROM THE 
SAME RECORD USING THREE DIFFERENT HIGH-PASS CUTOFF WAVENUMBERS. 



The three high-pass filter cutoff wavenumbers used in 
obtaining the spectra of Figs. 21 and 22 may be compared with 
the spectrum of the vertical record w(t) for Flight 30 Run 8 
shown in Fig. l6. 





PROBABILITY DENSITY FUNCTIONS OF INSTANTANEOUS VARIANCE (j|(t) 
AND SLOW TURBULENCE COMPONENT w^(t) OF VERTICAL RECORD FROM 
FLIGHT 30 RUN 8 (MOUNTAIN-WAVE CONDITIONS) 

Wohabil-itij density of Of(t). In Sec. 6 . 3 of Ref. 5, a 
method is developed for estimating the probability density of 
the instantaneous variance df(t) of the "fast component" Wf(t) 
of our turbulence model. Using that method , the probability 
density of a^Ct) for the ver'^ical record shown in Fig. 10 was 
estimated using moments of Of(t) through orders 3j and 

6. A high-pass two stage digital Butterworth filter [5] with 
cut-off wavenumber = 3 ^ 10“ ^m"^ was used in this procedure. 
The resulting probability densities obtained using Eq. (6.77) 
of Ref. 5 are plotted in Fig. 23 for the cases where moments 
through the third and sixth were used. The cases using moments 
through the fourth and fifth fell between the two curves shown 
in Fig. 23 . All four approximations are sufficiently close 
to one another so that little practical significance can be 
ascribed to their differences. 

Each of the four computed density functions had an Inte- 
grable singularity at the origin. Thus, neither of the two 
curves shown in Fig. 23 has a finite value at Of = 0, The 
reason for the Integrable singularity at the origin is 
apparent when we examine the vertical record shown in Fig. 10. 
In the region between about 9 min 0 sec and 9 min 45 sec, the 
fast turbulence component Wf(t) is virtually absent; hence, 
Cp(t) is very nearly zero during this time Interval. This 
behavior is undoubtedly responsible for the singularity in 
p(a|«) at = 0 . 

The probability density function of Qf(t) is useful for 
calculation of aircraft -response mean exceedance rates. See 
Eq. (4.8) of Ref. 5* 

Frobabili-ty dens-ity of WQ(t) . In Sec. 6.4 of Ref. 5, 
a method is developed for estimating the probability density 
of the "slow" turbulence component Wg(t) from a turbulence 
time history. Using that method, the probability density of 
Wg(t) for the vertical record shown in Fig. 10 was estimated 
using moments of Wg(t) through the fourth. This technique 
also requires the moments through the fourth of the fast 
turbulence component Wf(t) which were obtained using a high- 
pass two stage digital Butterworth filter [^] with cut-off 
wavenumber - 3 ^ 10" ^m“^ as before. The probability 


41 


p(«^f 



FIG. 23. PROBABILITY DENSITY FUNCTIONS OF INSTANTANEOUS VARIANCE af(t) OF 
THE "FAST" COMPONENT w^(t) OF VERTICAL RECORD SHOWN IN FIG. 10. 
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density of WgCt) Is actually computed using Eq. (6.93) of 
Ref. 5, and Is displayed In Pig., 2H for the vertical record 
shown In Pig. 10. Also shown there Is the Gaussian density 
function with the same mean and variance. 

The main purpose in estimating the probability density 
of Wo(t) is to make a first check on the assumption that 
Wg(t; Is a stationary Gaussian process. Considering the 
obviously small number of statistical degrees-of-freedom In 
the component Wg(t) of the vertical record shown In Pig. 10, 
we conclude from Pig. 24 that the deviation of the probability 
density of Wg(t) from the Gaussian curve Is not statistically 
significant . 
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FIG. 24. ESTIMftTE OF THE PROBABILITY DENSITY OF THE "SLOW" COMPONENT Wc{t) 
OF THE VERTICAL RECORD SHOWN IN FIG. 10 USING THE GRAM-CHARLIER 
EXPANSION AND MOMENTS THROUGH THE FOURTH. 
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CONSTRAINED LEAST-SQUARES ESTIMATION OF AUTOCORRELATION 
FUNCTION PARAMETERS OF LONGITUDINAL RECORD FROM FLIGHT 30 
RUN 8 (MOUNTAIN-WAVE CONDITIONS) AND VERTICAL AND 
LONGITUDINAL RECORDS FROM FLIGHT 32 RUN 4 
(WIND-SHEAR CONDITIONS) 


Here, we discuss collectively the results from three 
records, the longitudinal record from Plight 30 Hun 8 
(mountain-wave conditions) and the vertical and longitudinal 
records from Flight 32 Run 4 (wind-shear conditions). This 
completes all three records from Plight 30 Run 8 and Plight 
32 Run 4. 

The power spectral density computed from the longitudinal 
record of Pig. 10 is shown by the solid dots in Pig. 25, and 
the power spectral densities computed from the vertical and 
longitudinal records of Fig. 4 are shown by the solid dots 
in Pigs. 26 and 27> respectively. All three of these spectra 
were computed by the method described in Appendix B of Ref. 2, 
The value of M used in the computation Involving the mountain- 
wave record was 10,089 m as before, whereas the value of M 
used in the compulations Involving the wind-shear records 
was 9613.3 m. These values of M correspond in each case to 
1024 sample points. Before computing these power spectra, 
the mean values of the records were computed and removed. 

Von Karman longitudinal spectra are also plotted in 
Figs. 25 and 27 using solid lines, and the von Karman trans- 
verse spectrum of Eq . (2.1) is shown by the solid line in 

Pig. 26 . The von Karman longitudinal power spectrum is 
described by 


$j^j^(k) = 2a"L 


[ 1 + 70 . 


( 8 . 1 ) 


The values of and L for the von Karman spectra are given 
in each of the three figures. These values of and L were 

arrived at using the constrained least-squares estimation 
method described in Sec. 4 of Ref. 1, which postulates that 
the autocorrelation functions are of the form of Eq. (3.2), 
where af<j)K(C;L) is the appropriate form (transverse or 
longitudinal) of the von Karman autocorrelation function. 

In obtaining the von Karman spectra shown in Figs. 25 and 
27, we used a value of m = 3, whereas m - 4 was used in 
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FIG. 25. COMPARISON OF SMOOTHED WAVENUMBER SPECTRUM COMPUTED FROM 
LONGITUDINAL RECORD SHOWN IN FIG. 10 AND VON KARMAN 
LONGITUDINAL SPECTRUM OBTAINED BY CONSTRAINED LEAST-SQUARES 
FIT TO THE (EMPIRICAL) AUTOCORRELATION FUNCTION. VON 
KARMAN SPECTRUM CHARACTERIZES "FAST" TURBULENCE COMPONENT 
ONLY. 


i|6 





FIG. 26. COMPARISON OF SMOOTHED WAVENUMBER SPECTRUM COMPUTED FROM 
VERTICAL RECORD SHOWN IN FIG. 4 AND VON KARMAN TRANSVERSE 
SPECTRUM OBTAINED BY CONSTRAINED LEAST-SQUARES FIT TO THE 
(EMPIRICAL) AUTOCORRELATION FUNCTION. VON KARMAN SPECTRUM 
CHARACTERIZES "FAST" TURBULENCE COMPONENT ONLY. 





FIG. 27. COMPARISON OF SMOOTHED WAVENUMBER SPECTRUM COMPUTED FROM 
LONGITUDINAL RECORD SHOWN IN FIG. 4 AND VON KARMAN LONGI- 
TUDINAL SPECTRUM OBTAINED BY CONSTRAINED LEAST-SQUARES FIT 
TO THE (EMPIRICAL) AUTOCORRELATION FUNCTION. VON KARMAN 
SPECTRUM CHARACTERIZES "FAST" TURBULENCE COMPONENT ONLY. 
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obtaining the solid curve in Fig. 26. The values of used 
in Pigs. 25 through 27 were, respectively, = 1300.5 m, 

” 7501.0 m, and = 2497*0 m. Values of kj^ and used 

in every case were k^ = 10”^m”^ and k^ = 4 x l0“^m“^ . The 
equation of constraint used In the least -squares method for 
the mountain-wave longitudinal component Is shown In Pig. 28. 
The equations of constraint for the other two components were 
not plotted. 

Figures 29 through 31 show the autocorrelation functions 
of the three records under consideration. The autocorrela- 
tion function shown In Fig. 29 is dominated by the "slow" 
component , whereas the "slow" component contributes relatively 
little to the autocorrelation function shown In Fig. 30. The 
relative contribution of the "slow" component to the auto- 
correlation function shown In Fig. 31 Is midway between the 
other two cases. 

The autocorrelation function representation, Eq. (3*2), 
provided by the constrained least-squares estimation pro- 
cedure of Ref. 1 is shown plotted in Figs. 32 through 34 for 
the three records under consideration. Each figure contains 
the results of several pairs of the parameters 6 h m. 

We may observe from these figures that the constrained least- 
squares fits J(?) of Eq. (3*2) to the autocorrelation functions 
computed directly from the records are, in general, quite 
good . 


Figures 35 through 37 show the autocorrelation function 
representations of the "slow" turbulence component 




m 


1=0 


a±5 


( 8 . 2 ) 


obtained after removal of the von Karman component 
obtained in the constrained least-squares procedure. The 
value m = 3 was used in all three fits. Figures 35 through 
37 were computed by first subtracting from the empirical 
autocorrelation functions R(^) the von Karman autocorrelation 
functions with parameters and L as given In Figs. 25 
through 27 respectively. The resulting differences, 

R(6) “ are shown by the solid lines in Figs. 35 

through 37* We then computed an Integral least-squares fit 
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FIG. 28. CONSTRAINT BETWEEN af AND L FOR CONSTRAINED LEAST-SQUARES 
ESTIMATION PROCEDURE APPLIED TO LONGITUDINAL RECORD 
SHOWN IN FIG. 10. 
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FIG 29. AUTOCORRELATION FUNCTION OF LONGITUDINAL RECORD SHOWN IN 
FIG. 10 (MOUNTAIN-WAVE CONDITIONS). [FROM MAT PROJECT, 
NASA LANGLEY RESEARCH CENTER.] 



FIG 30. AUTOCORRELATION FUNCTION OF VERTICAL RECORD SHOWN IN 
FIG. 4 (WIND-SHEAR CONDITIONS). [FROM MAT PROJECT. 
NASA LANGLEY RESEARCH CENTER.] 
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SPATIAL LAG 


FIG. 31. AUTOCORRELATION FUNCTION OF LONGITUDINAL RECORD SHOWN IN 
FIG. 4 (WIND-SHEAR CONDITIONS). [FROM MAT PROJECT, NASA 
LANGLEY RESEARCH CENTER.] 
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SPATIAL LAG ^,m 


FIG. 32. COMPARISON OF AUTOCORRELATION FUNCTION COMPUTED FROM LONGITUDINAL RECORD 
SHOWN IN FIG. 10 AND CONSTRAINED LEAST-SQUARES FIT OF AUTOCORRELATION 
MODEL OF EQ. (3.2). 





33. COMPARISON OF AUTOCORRELATION FUNCTION COMPUTED FROM VERTICAL RECORD SHOWN IN 

IN FIG. 4 AND CONSTRAINED LEAST- SQUARES FIT OF AUTOCORRELATION MODEL OF EQ. (3.2). 





FIG. 34. COMPARISON OF AUTOCORRELATION FUNCTION COMPUTED FROM LONGITUDINAL RECORD SHOWN 

IN FIG. 4 AND CONSTRAINED LEAST-SQUARES FIT OF AUTOCORRELATION MODEL OF EQ. (3.2) 










SPATIAL LAG f m 


FIG. 35. COMPARISON OF AUTOCORRELATION FUNCTION R(§) OF LONGITUDINAL RECORD SHOWN IN 
FIG. 10 MINUS AUTOCORRELATION FUNCTION a|<()|^(5;L) OF VON KARMAN COMPONENT 

AND INTEGRAL LEAST-SQUARES THIRD-DEGREE POLYNOMIAL APPROXIMATION. 





SPATIAL LAG, ^,m 


FIG. 36. COMPARISON OF AUTOCORRELATION FUNCTION R(^) OF VERTICAL RECORD SHOWN IN FIG. 4 
MINUS AUTOCORRELATION FUNCTION a|ct)|^(^;L) OF VON KARMAN COMPONENT AND INTEGRAL 

LEAST-SQUARES THIRD-DEGREE POLYNOMIAL APPROXIMATION. 




SPATIAL LAG, 5,m 


FIG. 37. COMPARISON OF AUTOCORRELATION FUNCTION R(C) OF LONGITUDINAL RECORD SHOWN 
IN FIG. 4 MINUS AUTOCORRELATION FUNCTION a|<)),^{E;L) OF VON KARHAN COMPONENT 

AND INTEGRAL LEAST-SQUARES THIRD-DEGREE POLYNOMIAL APPROXIMATION. 




of Eq. (8.2) to the functions R(0 - af(|)K:(C 3 L) over the lag 
Intervals 0 £ ^ < 10,000 m using the third-degree polynomial 
(m = 3) of Eq. (F.2). These third-degree polynomial repre- 
sentations are shown by the dashed lines in Pigs. 35 through 

37. 

Tables 4 through 6 show the values of aj, L, <J)(0), and 
a^j through ajn for each combination of values of 
used in the constrained least-squares fit of Eq. (3.2) to 
the autocorrelation functions of each of the three records 
under consideration. With the exception of the cases where 
m = 1, we observe relatively little spread in the values of 
the integral scale L of the von Karman component in each of 
Tables 4 through 6. 
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TABLE 4. CONSTRAINED LEAST-SQUARES ESTIMATION OF AUTOCORRELATION FUNCTION 




PARAMETERS FOR 

MOUNTAIN 

-WAVE 1 

-ONGITUDINAL 

RECORD 



m 


L 






m 


m^/sec^ 

m 

^(0) 

*0 




995.1 

1 

.550 

60.4 

18.221 

17.671 

-.582x10"^ 



995.1 

2 

.481 

47.2 

18.221 

17. 7110 

-.829x10-^ 

.198x10”® 


1300.5 

2 

.475 

46.1 

18.220 

n.jHH 

-.837x10”^ 

.193x10"® 


1300.5 

3 

.465 

44.1 

18.220 

17.755 

-.889x10”^ 

.266x10"® 

-.310x10“'“ 

2197.1 

3 

.414 

34.5 

18.223 

17.809 

-1.146x10" 

® .589x10"® 

-.143x10““ 

2197.1 

4 

.443 

39.8 

18.221 

17.778 

-.977x10-^ 

. 310x10"® 

. 303x10“' “ 


a =-. 365 x 10 

4 


Exact value of R(0) is 18.14? m^/sec^ 



TABLE 5. CONSTRAINED LEAST-SQUARES ESTIMATION OF AUTOCORRELATION FUNCTION 
PARAMETERS FOR WIND-SHEAR VERTICAL RECORD 



m 

a| 

L 

HQ) 


m 


m^/sec^ 

m 



2497.2 

1 

5.102 

154.3 

6.090 

00 

2497.2 

2 

4.858 

142.6 

6.066 

1.208 

4496.9 

2 

5.036 

151.1 

6.095 

1.058 

4496.9 

3 

4.710 

135.6 

6.070 

1. 360 

7501.0 

3 

4.775 

138.6 

6.066 

1.291 

7501.0 

4 

4.881 

143.6 

6.073 

1.192 

9003.1 

4 

4.709 

135.5 

6.065 

1.356 


Exact value of R(0) is 6.053 m^/sec^. 





a. 

- .518x10“^ 




- .909x10“*^ 

.139x10-® 



- .712x10“^ 

.986x10-® 



-1.303x10-^ 

.388x10-6 

-.40x10-^ ® 


-1.106x10"^ 

.258x10-® 

-.18x10-^® 


- .909x10“^ 

.154x10-® 

.25x10-^^ 

-.13X10"* ■* 

-1.249 10“^ 

.340x10-® 

-.34x10-^® 

.11x10"' " 





TABLE 6 . CONSTRAINED LEAST-SQUARES ESTIMATION OF AUTOCORRELATION FUNCTION 
PARAMETERS FOR WIND-SHEAR LONGITUDINAL RECORD. 



m 

-f 

L 

HO) 




"3 \ 

m 


m^/sec^ 

m 






1699.2 

2 

5.200 

175.3 

20.430 

15.230 

-.197x10"^ 

. 486 x 10 “^ 


2102.9 

3 

4.262 

128.7 

20.705 

16.443 

-.536x10-2 

. 370 x 10 “® 

-. 10 x 10 “® 

2497.0 

3 

5.120 

171.0 

20.406 

15.286 

-. 190 x 10”2 

. 384 x 10 “® 

-.29x10“^® 

3098.0 

4 

4.965 

163.2 

20.482 

15.517 

-. 258 x 10"2 

. 108 x 10 “® 

-.35x10“® .6x10“^® 

3605.0 

4 

5.016 

166.0 

20.347 

15.330 

-. 149 x 10“2 

-. 599 x 10 “® 

. 56 x 10 “® - 1 . 0 x 10 “^® 


Exact value of R(0) Is 20.072 m^/sec^. 



METHODS FOR COMPUTATION OF THE INTEGRAL SCALE AND INTENSITY 
OF THE "SLOW" TURBULENCE COMPONENT 

If <j>(^) Is the autocorrelation function of a turbulence 
record which is a function of the spatial lag variable 
and 


cr^ = (f)(0) (9.1) 

Is the mean-square value of the record, then the Integral 
scale L Is defined as [p. 43 of Ref. 8] 


L 


A 



[ <(>(5)d€. 


(9.2) 


Let us define the wavenumber spectrum of the record as 


-CO 

*(k) ^ I 


Hence , 


4.(0) = 


<K5)dS = 2 


<K5)d5 , 


( 9 . 3 ) 


( 9 . 4 ) 


since <P(S) Is an even function of ?. From Eqs. (9.2) and 
(9.4), we may express the Integral scale in terms of 4(0) as 


L = $(0) . 

2a^ 


( 9 . 5 ) 


In the case of the von Karman transverse wavenumber 
spectrum which we have chosen to characterize the "fast" 
turbulence component, we have Instead of Eq. (9.5), 
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5 


(9.6) 


according to Eq. (3.18) on p. 80 of Ref, 1, where in Eq. (9.6) 
we have used subscripts f to denote characteristics of the 
fast turbulence component. Prom Eqs . (9.5) and (9*6), we see 
that there is a factor of two between the definition for 
the von Karman transverse Integral scale and the definition 
given by Eq. (9.5). This is customary — e.g., see Ref. 9. 

Let us denote the wavenumber spectra of w(t), Ws(t) and 
Wf(t) in our turbulence model of Eq. (1.1) by $^(k), 
and $f(k). Then^, from the assumed statistical independence 
of {w (t)} and {w„(t)}, it follows that 

S X 

$^(k) = 4>g(k) + $j.(k) j (9.7) 


hence. 


^3(0) = $^(0) - $^(0) 


(9.8) 


Applying Eq. (9.5) to the slow turbulence component, and 
using subscripts s to denote "slow," we have 


L 

s 



$^( 0 ) . 


(9.9) 


If we now recognize that the fast turbulence component whose 
spectrum is $f(k) has been modeled by the von Karman trans- 
verse spectrum; hence, $^(k) = $j^fp(k), we may combine Eqs. 
(9.6), (9.8), and ( 9 . 9 ) to yield the desired expression for 
the Integral scale of the slow turbulence component: 


L = 


2a 


C$„(0)-a^L^] 


( 9 . 10 ) 


where all quantities on the right-hand side are easily esti- 
mated from methods discussed earlier. The mean-square value 
Cg of the slow component is obtained from the mean-square 
value of the original record and the mean-square value of the 
fast component by subtraction: 
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(9.11) 


a 


2 

S 



as may be seen from Eq. (9.7). 

Initial evaluations of for the first three records dis- 
cussed in this report. The parameters required to evaluate 
Ls for the first three records with a "slow” component 
discussed earlier in this report are listed below in metric 
system units. 



Pit. 32 Run 4 
(Wind Shear Lat . ) 

Pit . 30 
( Mt . Wave 

Run 8 
Lat . ) 

Pit . 30 
( Mt . Wave 

Run 8 
Vert . ) 

W 

3 . OOlxlO^mVsec^ 

2 . 187 x 10 ^ 

m^/sec ^ 

8.502x10^ 

m^ /sec ^ 

w 

53.66 m^/sec ^ 

29.23 

m^/sec ^ 

1.812 

m^/sec ^ 


5 . 315 m^/sec ^ 

0.684 

m^/sec ^ 

0.470 

m^/sec ^ 

Lf 

265.5 m 

128.9 

m 

68.4 

m 


Substitution of the above parameters into Eqs. (9.10) and 
(9.11) yields the following values for the Integral scale L 
of the slow turbulence components of the three records: ^ 

wind-shear lateral: L = 3090 m (9.12a) 

s 

mountain-wave lateral: L = 3829 m (9.12b) 

s 

mountain-wave vertical: L = 3156 m. (9.12c) 

s 

Discussion . Rough checks may be made for each of the 
above values of Lg by comparing them with plots of the auto- 
correlation functions of the slow turbulence components 
shown in Pigs. 9, 15 > and 20 respectively. From the defini- 
tion of L given by Eq. (9.2), it is evident from the above 
mentioned figures that each of the values of Lg given by 
Eq. (9.12) is too small. The reason that these computed 
values of Ls are too small may be seen from Eq. (9.10). To 
compute them, we used the values of the smoothed spectra 
$^(0) evaluated at k = 0. The process of smoothing the 
wavenumber spectra to get Improved statistical reliability 
reduced the values of the wavenumber spectra evaluated at 
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k = 0. Hence, we require an alternative method to estimate 
the integral scales Lg. Such an Improved method has been 
developed in Appendix H of Ref. 1. This method is based 
directly on integration of the autocorrelation function 
representation of Eq. (8.2) after extrapolating its "tail" 
using a decaying exponential with continuous slope at 
^ resulting formula for Lg derived in Appendix H 

of Ref. 1 [Eq. (H.l4)] is 



(9.13) 


where a^, •••j a-m 9 -^® “the coefficients of the autocorrelation 

representation of Eq. (8.2), and = 10,000 m is the upper 
limit of the lag parameter used in the Integral least-squares 
fit . 

Improved evaluations of Lq for the three records from 
Flight 30 Run 8 and the three records from Flight 32 Run 4. 
Using the autocorrelation function representation of Eq. (8.2) 
with m = 3 over the Interval 0 1. C 10,000 m that is dis- 
played for the six records of Interest by the dashed lines 
in Pigs. 9, 15, 20, 35, 36, and 37, we have computed Lg 
using Eq. (9.13). The resulting values of Integral scale 
are shown in Table 7. 

TABLE 7. VALUES OF INTEGRAL SCALE Lg OF THE SLOW TURBULENCE 
COMPONENT COMPUTED USING EQ. (9.13). 

wind-shear lateral Pig. 9 ~ 8,511 m 

mountain-wave lateral Fig. 15 L = 37,09^ m 

mountain-wave vertical Pig. 20 L = 4,997 m 

O 

mountain-wave longitudinal Fig. 35 L = 32,384 m 

s 

wind-shear vertical Pig. 36 L = 825 m* 

wind-shear longitudinal Pig. 37 L = 17,052 m 

s 

*The value of Lg = 825 m for the wind-shear vertical case is 
completely unreliable because of the behavior of the auto- 
correlation function representation of Eq. (8.2) shown in 
Fig. 36 . 


66 



Prom examination of the dashed autocorrelation function 
representations In each of the above cited figures, we 
can conclude that the method of Eq. (9*13) should provide 
reasonable values of Ls for all records except the wind- 
shear vertical record whose autocorrelation function Is 
shown in Pig. 36. This lack of reliability is noted in 
Table 7. 
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APPENDIX A 

INTRODUCTION TO COMPUTER PROGRAMS 


The Appendices to this report document the following com- 
puter programs developed to characterize nonGaussian atmospheric 
turbulence records relevant to aircraft response calculations: 

a. maximum likelihood estimation of the Integral scale 
and variance of von Karman turbulence, 

b. constrained least-squares estimation of turbulence 
autocorrelation function parameters, 

c. power spectral density of the Instantaneous variance 

cj|.(t ) , 

d. probability density estimation of the Instantaneous 
variance a|(t) and the "slow" turbulence component 
W^(t). 

The turbulence models used to develop these programs are described 
in BBN Report 4319a Characterization, Parameter Estimation, and 
Aircraft Response Statistics of Atmospheric Turbulence (Ref. 1). 

These Appendices explain the program usage, program Inputs 
and outputs, and give typical teletype printouts. Included 
are source program listings and printouts of typical output 
data files. The programs were written in FORTRAN IV. The 
notation used in this report is consistent with that of the 
above cited reference. 

The source program and subroutine listings are contained 
in Appendix F in alphabetic order by program name. The source 
programs and subroutines contain comment statements to aid the 
user in following the flow of the computations. 

Table 8 contains a summary of the purpose of each program, 
subroutines required, and the form of the Input/output of each 
program. 
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TABLE 8. ATMOSPHERIC TURBULENCE MODELING PROGRAMS. 


Appendix 

Main 

Program 

Subroutines 

Purpose 

Inputs 

Outputs* 

B.l.l 

ATURB2 

CFFT 

SIMP 

compute 

turbulence 
samples , 
TTY inputs 

(PHILK): 0j^(k) 

(AUTO): R^(^) 

(DSPS) : 4> (k) 

P 

B.1.2 

PART2 

AK 

AKDAT 

GAM 

PARAB 

SIMQ 

computes 

E(L) , LG(k. ,L) , A 

1 n 

and ( k ) 

K. 

_ 

data file 
(PHILK) and 
TTY inputs 

(I.G):LG (k.) 
(PHIxI); i)j^(£;) 
(PHIK): <f>^(k) 

tv 

C.1.1 

ATURB3 



CFFT 

SIMP 

computes proven spectrum auto- 
correlation for nonGaussian tur- 
bulence samples — similar to 
ATURB2 

turbulence 

(PHILK): <P^(k) 

(AUTO): R(£) 

(DSPS) : <t (k) 

P 


PART 5 

— 

computes ,1=1,... 15 

(PHILK) 

TTY inputs 

TTY; 

a^(L^) 

C.1.3 

FINAL 

AKl 

AKDAT 

ANRPl 

FnDECT 

DGELG 

GAM 

PAR1&2 

SET 

SIMP2 

SIMQ 

TRAP3&6 

computes (()(£) 

TTY inputs 

(TTM2); (J)(£;) 
(ITM2L) : 
L\(kL) 

D.1.1 

aturbu 

CFFT 

HPDES 

SIMP 

Filter data, produce power 
spectrum & autocorrelation fn 

turbulence 
samples & 
TTY inputs 

(PHILK) :<I>jj^(k) 
(AUT0):R (?) 

TTY inputs 

D.1.1 
( cont. ) 

ATURliA 


Filter data, square, produce 
power spectrum and auto- 
correlation 

same 

as 

above 

(FPSD2):4>jj^(k) 

CAUTF2):R^2(?) 

h 

D.1.2 

ITEM3 

CFFTl 

compute R 2 (G), zCk) 

(AUTO) 
(AUTF2) & 
TTY inputs 

(p.sigf);r 2(0 

(PHIF):«>^2(k) 

E.1.1 

MOMENT 

BIN 

[k] [k] [k] 

computes a , a 9 > 

n n 

[ki 

and a 2 k=l , . . .8 

turbulence 
samples & 
TTY input 

TTY : moments 
listed to 
left 

E.1.2 

GDIST6 

GAM 

probability density 

TTY input 

TTY output 

E.1.3 

ITEMii 

FACl 

probability density p 

s 

TTY input 

(PR0B):p & TTY 

output 


*Data files in parentheses. 
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APPENDIX B 


MAXIMUM LIKELIHOOD ESTIMATION OF THE INTEGRAL SCALE AND VARIANCE 

OF von KARMAN TURBULENCE 

Two main programs, ATURB2.P4 and .PART2.P4, are used in com- 
puting the integral scale and variance of von Karman turbulence. 
The development of the maximum likelihood estimation technique 
is discussed in Sec. 3 of Ref. 1 and Appendix F of Ref. 1. The 
first program, ATURB2, computes the two sided power spectrum, 

Sj , the autocorrelation function, R«(^), and the two sided 
smoothed power spectrum, $p(k), of the turbulence record, w(t), 
being processed. The second program, PART2, calculates the 
integral scale of the stationary turbulence sample and its 
variance. 

A fast Fourier transform subroutine is utilized in computing 
the power spectra and autocorrelation function. The positive 
frequency domain values of the spectra and the values of the 
autocorrelation function are stored In three separate output 
data files. The data file PHILK, containing Sj values. Is used 
by the program PART2. In addition to computing the Integral 
scale and variance, PART2 computes the von Karman autocorrelation 
function 4 >k(^) a-^d von Karman spectrum $KT(k) using values of 
and length scale L determined by the program. 


Program Outlines and Usage 

Program ATURB2.F4: Computes the two sided power spectrum, 

Sj , of turbulence data, the autocorrelation function cf) , and 
smoothed power spectrum 

a. Subroutines 

I. CFFT — fast Fourier transform routine 

II. SIMP — Integration by Simpson’s rule, 

b. Inputs* [from the teletype (TTY) unless otherwise noted] 

I. speed of craft in m/sec — (V)’^ 

II. number of points In Fourier transform (NPTS) and 
power of two of that number (MPWRN) 

ill. number of points in turbulence record (NOPTS) and 
sampling rate of data (SRATE) 


*Unless otherwise noted a ”G" format Is used for numerical inputs 
from the teletype. 

■^*Alphanumerics in parenthesis represents equivalent variable name 
In source program. 
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Iv. number of points for smoothed power spectrum 

(MPTS) and power of two of that number (MPWRM) 

V. name of data file (A5 format) containing tur- 
bulence values w(t) and number of points In 
the array (NXRAY; Input file has 0 to NXRAY-1 
points divided Into 4 columns with a format of 
4 (EI 5 . 7 ); Input values In units of ft/sec — 
program converts values to m/sec); this data 
file Is read by the program. 

vl . answer yes (Y) if program check on Integration Is 
desired (value printed on TTY should equal value 
printed in data file) or no (N) if program check 
Is not desired. 

c. Outputs (to various data files or to the TTY) 

I. data file, PHILK, containing positive frequency 
(k) domain values of power spectrum S j , equation 
3 . 27 , Ref. 3 . 

II. data file, AUTO, containing autocorrelation values 

III. data file, DSPS, containing values of the smoothed 
power spectrum 

d. Example 

A typical teletype printout of the execution of this 
program Is shown in Pig. B.l. The user supplied information dis- 
cussed In b Is underlined in the example. The first page of 
each output file mentioned is shown In Pigs. B.2 through B.4. 


Program PART2.F4: Computes the. integral scale, L, of a 

stationary turbulence sample and Its variance (Eq. 3.25, Ref. 1). 

a. Subroutines: 

I. GAM — computes gamma function T 

II. AK and AKDAT — compute modified Bessel functions 
of fractional orders 1/3 and 2/3, AK uses data 
stored In AKDAT 

ill. SIMQ — simultaneous linear equation routine from 
the IBM Scientific Subroutine Package 

iv. PARAB — curve fitting routine 
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©LOADER 

♦RTURBE » CFFT » S I MP* 

RTURBe 36K CORE* £12 WORDS FREE 
LOADER USED 39+5K CORE 

EXIT. 

•^C 

©SAVE <CORE FROM> £0 <TO> 777777 <DN:> ATURB2.SAV [Mew fiueD 
©ST 


INPUT SPEED OF CRAFT <M/SEO 
187.76 


INPUT TOTAL NO. OF POINTS TO BE USED IN £L M. OF DATA 
AND POWER OF TWO OF THAT NO. 

16384 

14 


INPUT NO. OF POINTS OF W<X> TO BE READ 
AND SAMPLING RATE OF DATA 1459£» . 05 


INPUT VALUE OF MPTS 

AND POWER OF TWO OF THAT NO. 

10£4 

Ui 


INPUT DATA FILE NAME THAT CONTAINS SAMPLES 

OF W<X) AND NO. POINTS NXRAY 

NASAl 

1459£ 


PERFORM INTEGRATION CHECK <Y DR N> V 


INTEGRAL OF PHI OF L = 

0.35946£SE-0£ 0.0000000 

84873£. 1 0.0000000 

118158.3 £6££8.80 

0.4658256 


0.7216021 0.7061144 

848688.2 £44518.3 



program output should match 
value of of data files 


0.480£E+0£ 

1478369. 

£44530.9 


0. 0000000 
0. 0000000 


intemod iate 
output, useful 
for debugging 
only 


118146.2 


CPU time: 4:0.23 ELAPSED TIME: 10:5.85 

NO EXECUTION ERRORS DETECTED 

EXIT. 

'^C 


FIG. B.l. TTY PRINTOUT FOR RUNNING PROGRAM ATURB2. 
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<PFT‘>Hi;P>PHILK. OR'" ;5 Son 7-MOV-77 9:a7RH 


PAGE 1 


FIG. 


DATA 7TLE CHEATED BY PROGPAH ATOPB2 

POWEP BPECT7TIM OF t»ht OF 1(K) 

DATA TAKEN FPOS FILE VERT 


32768 data ootMTS WF’>E DFED IN 2L = 210894.8460 HETER 

1024 DATA ’’OTNTS WERE OSEP IN S = 6590.4639 HETER 


9968 EFPOS V^RP ADDID TO DATA 


SPAN VALUE OF W (T) 
MEAN SO. VALUE = 


0.83463F-01 S/SEC 
0.13305E+01 (H/SEC)**2 


<W OF Lcy>**2> 


1.3305 


PRINTOUT OF THE VALUES OF THE PONEP SPECTPUH 


K 

PS VALUE 

K CONTD 

PS VALUE CONTD 

0 . 0000 00 

0.141 9E-09 

0. 038844 

0 . 579 IE +00 

0 . 0000 05 

0.1622F+04 

0. 038849 

0, 1750E+01 

0. 000009 

0.6052F+03 

0. 038853 

0.4 77 0E+00 

0. 000014 

7.2C32E+02 

0. 038858 

0.2895E+00 

0.000019 

0. 4472^+0? 

0. 038863 

0-1 043E-01 

0. 000024 

0.5508F+03 

0. 038868 

0.7540E+00 

0.000028 

0. 1108^+03 

0. 038872 

0.4492E-01 

0. 000033 

E.7429E+02 

0. 038877 

0. 1940E+00 

0. 0000 38 

0. 5229E+03 

0. 038882 

0.4 078E+00 

0. 000043 

'^.29877+03 

0. 038887 

0.6840P-01 

0. 000(»47 

0.4791F+03 

0. 038891 

0.8488E+00 

0.000052 

0 . 3334 E +03 

0. 038896 

0. 1444E+00 

E. 000057 

0 . 1399E+03 

0. 038901 

0.2073F-01 

0. 000062 

0 . 1206E+03 

0. 038906 

0. 1883E+00 

0. 000066 

0. 1233E+03 

0. 038910 

0.9916E+00 

0. 000071 

0.1368F+03 

0. 038915 

0.8517E+00 

0.000076 

0. 5"'4 3E+03 

0. 038920 

0.1654E-02 

0. 000081 

0. 9'^6 9E*0 2 

0. 038925 

0.2768E+00 

0. 000085 

3835E+03 

0. 038929 

0.851 1E+00 

0 , 000090 

0.8038E+02 

0. 038934 

0.6148E+00 

0 . 0000 95 

0. 5548E+03 

0. 038939 

0.7542E+00 

0 , 00Pf1 00 

0.7102E+03 

0. 038944 

0. 1934E+01 

0 . 00F1<7»4 

0.3i708E+{53 

0. 038948 

0.8529E-01 

0. <^00109 

0.321 0E+03 

0. 038953 

0.5054E400 

0. 0001 14 

0.7278E+03 

0. 03 8958 

0.1431E400 

0, 0001 19 

0.15^0E+03 

0. 03R963 

0.4 173E+00 

0. 000123 

0. 1513E+04 

0. 038967 

0.262 9E+01 

2. OUTPUT 

DATA FILE 

PHILK. 



74 



: <fiFlSH£R>AOTHSV. EAT; 1 Fri 28-Apr-78 4:51 PH PAGE 1 

^ — AUTO renamed to AUTWSV 


DATA FILE CREATED BY PROGRAN ATURB2 


FIG. 


ADTOCOBRELAIION OP STATIORA6Y SAMPLE 
DATA TAKEN FROM PILE NA5V 


16384 DATA POINTS WERE USED IN 2L = 153812.9920 METER 

1024 DATA POINTS BERE USED IN H = 9613.3120 METER 


1796 ZEROS HERE ADDED TO DATA 


MEAN VALUE OF H (X) - -0.43757E-01 M/SEC 

MEAN SQ. VALUE = 0.60534E^01 (M/SEC) *«2 


<i OP L(X) ** 2 > - 6.0533 


TROCATION- POINT 

HAS 

13000. 00 

METERS 

HHICH CONTAINS 

1334 

POINIS 



PRINTOUT OF THE 

VALUES OF THE A OTOCOB RELA TIO N 

X 

RL 

RL/R0 

0.0000000 

6.053274 

1 .000000 

9.388000 

5. 53 151 1 

0.9138048 

18.77600 

5.046111 

0.8336167 

28.16400 

4. 635600 

0.7658003 

37.55200 

4. 277285 

0.7066 06 8 

46.94000 

3. 94 1774 

0.6511804 

56.32800 

3.612217 

0.5967377 

65.71600 

3. 323236 

0. 5489980 

75.10400 

3. 083437 

0.5093 834 

84.49200 

2. 88 588 3 

0. 4767475 

93.88000 

2. 686956 

0.443864 6 

103.2680 

2. 52 9167 

0.4176 160 

112. 6560 

2. 39 7351 

0.396042 1 

122.0440 

2. 274019 

0. 3756676 

131. 4320 

2. 177932 

0.3597940 

140.8200 

2. 08 1459 

0. 3438567 

150. 2080 

1.97S035 

£.3269362 

159.5960 

1. 874740 

0.3097066 

168.9840 

1. 7S€649 

0.2968393 

178.3720 

1. 730489 

0.2858766 

187.7600 

1. 66 1303 

0.2744470 

197.1480 

1. 577359 

0. 2605794 

206. 5360 

1.491435 

£.2463 84 8 

215.9240 

1. 40 1096 

0. 2314609 

225. 3120 

1. 312728 

£.2168625 

B.3. OUTPUT 

DATA FILE AUTO. 
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PAGE 1 


I 


<RFlSHEP>nsPs6,DATM Frl 20«APr-78 4|52PM 


1L_ 


■Renamed from DSPS 


DATA FILE CREATED By PROGRAM ATMrB2 


smoothed power SPtCTRirM PHi OF P(K) 

data taken From data file NASV 


16384 DATA POINTS WERE UsED IN 7h m 153812.9920 METER 

1024 Data points were used M ■ 9613,3120 METER 


mean value Of W(X1 a 

MEAN 50’. VAL??E * 

<W OF LfXl-**2> * 


-0’,43757E*01 M/SEC 
P.60534E+01 fM/SEC)#*2 

6.0533 


1796 ZEROS WERE ADDED TO DATA 


RL(0) * «^‘,6053E+«1 


printout of 

VALUES OF THE 

smoothed power 

SPECTRUM 

K 

SPS VAT.UE 

K CONTD 

SPS VALUE CONTD 

0,000000 

0,221 IE+04 

0),026630 

0.5582E+01 

0,000052 

0.2J24F+04 

0^026682 

0,5629E+01 

0,000104 

0,260lE-»'04 

0-026734 

0,5344E+01 

0,000156 

0 , 26^1 E-f 04 

0,026786 

0.5022E+01 

0,0002«8 

0 , 2030F-f 04 

0j,026830 

0.5740E+01 

0,000260 

0, 1521F + 04 

0^026890 

0,6989E+01 

0,00031 2 

0,14 46E + 04 

0-026942 

0.6953E+01 

0,0003(s4 

0, 1371E + 04 

0,026994 

0.5436E+01 

0,00lr?4 1 6 

0, 10q6e + 04 

0-027046 

0.4300E+01 

0.00046R 

O,7;?5lF. + 03 

0^027098 

0,434tE+01 

0,000520 

O,7422E+03 

0-027150 

0.4698E+01 

0,000572 

0, 8925E + 03 

0-027202 

0,5071E+01 

0,000624 

0,98r3f+03 

0,027254 

0.5294E+01 

0,000676 

0.8?45f+03 

0,027306 

0,5114E+01 

0.000728 

0.696^»^ + ^3 

0.027350 

0.48S7E+01 

0,000780 

0,591 9e+03 

0' 027410 

0.5411C+01 

0,000832 

0,49glF+03 

0,027462 

0,6069Cf01 

0,000884 

0,4930F+03 

0,027514 

0,5290E4>01 

0,000936 

0,6537f+03 

0,027566 

0,440?E+01 

0,000988 

0.8731F+03 

0.027618 

0.4795E+01 

0,001040 

0, 9670F + 03 

0^027670 

0,5412Ef01 

0,001092 

0,843lF-^03 

0,027722 

0,5693E+01 

0,0011 44 

0,64^6^+03 

0,027774 

0,6767E+01 


FIG. B.4. OUTPUT DATA FILE DSPS. 
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b. Inputs and teletype outputs 

i. number of data points (NPTS); step size of k 
(DELK) ; and step size of ? (DELX) 

II. program automatically calls In data file ”PHILK" 
containing values 

III. summation Index N(N); Initial estimate of L 
(ALV(l)); and step size of L (AL=STPL) 

Iv. program prints computed values of E(L), E(L+AL) 
and questions whether the values are positive 
and negative (opposite signs) — answer yes (Y) 
or no (N); the program then outputs the Inter- 
polated value of L; this value, L^, Is used to 
compute the new values of E(LM and E(L’+AL/10) 

V. again the program questions whether the values of 
E(L) and E(L+AL/10) are of opposite sign; If the 
answer Is yes (Y) the program computes the final 
value of L, If the answer Is no (N) the program 
has to be restated with a new value of L [abort 
(A) program] 

vl. after program computes and prints out value of 
the program can be aborted (A) or continued 
(C) for the computation of LG(kj ,L) Eq. 3.35a 
Ref. 1, and the von Karman spectrum and auto- 
correla.tlon . 


c. Outputs 


I. values of L and (Eq. 3*25, Ref. 1) are printed 
out on TTY 

II. data file LG containing values of LG(k-?,L) (Eq. 
3.35, Ref. 1) 

III. data file PHIXI containing values of the 
von Karman autocorrelation function: 


,2/3 


$k(5) = (e5/L)^^^K^/^(eS/L) 

r(j) 

II 


which Is similar to Eq. 4.48, Ref. 1. 

Iv. data file PHIK containing values of the von Karman 
spectrum $ ^(k) or Pj(L), Eq. 3.20, Ref. 1. 
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d. Example 

A typical teletype printout of this interactive program 
is shown in Fig. B.5. Again, the user supplied information is 
underscored. Examples of the first page of the output data files 
are shown in Pigs. B.6 through B.8. 
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(PLDflDER 

(►PfiRTa* GflM j RK j fiKDRT j PRRRB j S I MQ$ 

PfiRTe 24K CORE* 899 MDRDS FREE 
LDRBER USED 26+5K CORE 

EXIT. 

/oISflVE <CQRE FRDM> 20 <TO> 777777 <OH> PRRT2.SRV CNew file! 
5ST 


INPUT MO- OF POIMTS TO BE RERD* DELKfDELX 
a ^450>4-7416995E-06>6,436 . 

INPUT N»L» & STEP SIZE OF L 

,3n-F5 ^ — AL = -1*1 


□N 1 PfiSS E = -0.8844976E-03 

□N 2 PRSS E = b.4644040E-02 

RRE THERE POS- RHD MEG. E"S <Y 

FOR 2 PfiSS IHTERPOLRTTED L = 
□N 3 PRSS E = 0.93919G7E-04 

□N 4 PRSS E = -0.5123543E-03 

RRE THERE POS- RMD MEG- E“S <Y 

FOR 4 PfiSS INTERPOLRTTED L = 
CONTINUE OR fiBDRT? <C OR fi> 

SIG2 = 1-326393 

CONTINUE OR ABORT? <C OR R> ^ 

EXIT 


OR N> answer is no restart 

program with another 
309.8796estimate of L 


OR N> X 
309.4071 


FIG. B.5. TTY PRINTOUT FOR RUNNING PROGRAM PART2. 
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I <PFI5HER>IiG’.DAT| 1 


wed 26«Apr-76 12114PM 


PAGE 1 


OUTPUT OF item 1» PaRT 4, PHASE II ATMO'. TURB 

created by Program part 2 
FOR L V 3fl9,40ll METERS 

K LG K CONtD 

0,47417o0E-o 5 253R761E-03 o’ l500274E*01 

0,940339<JE-05 -0, 1 ol5040E.02 0 . 1 500740E-01 

0,1422510E-b4 •0:2282104E-02 0 . 1 501 222E-01 

0,1896680E*04 -0 . 4^52757E-02 0 . 1 501 696E-01 

0^2370850E-04 •»' 6^2?783F-02 0^ 1 5021 70E-01 

0^2845020E*04 -0 9ci9l070E-02 0, 1 502645E«0 1 

0,33191 90E-04 •0:1t34963E.01 0, 15031 19E*01 

0,3793360E*b 4 -01 1 fi09363E«0l 0 1503591E-01 

0,4267530E«n4 »0.203l 638E.01 0 t504067E«01 

0,4741700E«04 •0^2501044E.01 0, 1 50454 1 E-01 

0.521S869E-04 «0. 3b1 6757E.01 0^ 1 50501 5E«01 

0,5690039E*04 »0 . 3577880E*01 0, 1 505490E-01 

0,6164209E*04 .0' 4TB3448E.01 0 1505964E-01 

0.6638379E-04 .0.4B32431E-01 0 1506438E*0l 

0,7U2549E-04 .0^ 55237 36E-01 0, 1 506912E-01 

0,7586719E«04 »0 625621 7E-01 0, 1507386E-01 

0,8060B89E-04 -0^ 7028672Ew01 0 1507860E*01 

0,8535059E-04 -0, 7039854E-01 0 , 1508335E-01 

0,9009229E*04 •0.068P474E.01 0 1508809E-01 

0,9483399E.ci4 »0).957 3203E-01 0, 1 50928 3E-01 

0.9957569E-04 -0 1049268 0 1509757E-01 

0, 1043174E-O3 •0^1144552 0 1510231E-01 

0,1090591E«O3 .0 1243030 0 1510705E-01 

0,ll380O0E*o3 -0.1344560 0 1511180E-01 

0,1185425E-o3 -01144r997 0, 1 5 1 1 654E-01 

0,1232842E-03 -0,1556195 0 1512128E-01 

0.1280259E-O3 -0.1666008 0 1512602E-01 

0.1327676E-03 -0' 177b290 0 1513076E-01 

0.1375093E-03 -0,lfl9?895 0 1513550E-01 

0, 1422510E-O3 -0.2009678 0 1514025E-01 

0,1469927E-03 -0’.2i2fi494 0 , 1 5 1 4499E-01 

0.1517344E-03 . 0*2249200 0 1514973E-01 

0,1564761E-o3 -0, 2371655 0, 15 15447E-01 

0,l6l2l78E-03 -0,2495720 0 , 151 5921 E-01 

0.1659595E-03 -0,2621257 0 1516396E-01 

0.1707012E-03 -0.2749132 0 1516870E-01 

0.1754429E-03 -0‘,2fi76214 0 1517344E-01 

0,l801846E-o3 -0,3005372 0 1517818E-01 

0,1849263E-03 -0, 3135481 0 151B292E-01 

0,1896680E-03 *0.3266419 0 15t8766E-01 

0.1944097E-03 -0'339b 067 0 15l924lE*0l 

0.1991514E-03 -0,3530309 0 1519715E-01 

0,2038931E-03 -0,3663033 0 , 15201 89E-01 

0.2086348E-03 -0,3796131 0 1520663E-01 

0,2l33765E-o3 -0,3929498 0 1521137E-01 

0,2181192E-o3 *0.4o63035 0, 1 52 1 61 1 E-01 

0.2228599E-03 -0’.4l96644 0 . 1 522086E-0 1 


LG CONTO 
-1,665575 
-1,665575 
-1.665576 
-1,665577 
-1,665577 
-1,665578 
-1,665579 
-1,665579 
•1,665580 
-1 ,665581 
-1 ,665581 
•1,665582 
•1,665583 
•1.665584 
-1,665584 
• 1 .665585 
-1,665586 
-1 .665586 
-1,665587 
•1,665588 
-1,665588 
-1.665589 
-1 .665590 
•1.665590 
-1.665591 
-1,665592 
-1 .665592 
•1,665593 
-1,665594 
-1,665594 
-1 .665595 
-1,665596 
-1,665596 
-1,665597 
-1 .665598 
-1,665598 
•1,665599 
-1,665600 
•1 .665600 
•1 .665601 
-1,665602 
-1,665602 
-1,665603 
•1,665604 
•1,665604 
-1,665605 
•1 .665606 


FIG. B.6. OUTPUT DATA FILE LG. 
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non 7- Nov-77 4:37PH 


PAGE 1 


P?TA FILE CREATED 3Y P’^OGRAN PART2 


OTTT PFTT FOR PART 

7 OP ITEM T 

, PHASE IT 

calchlattons op 

70N-KARWFN 

AriTOCORRELATION FN 

FJGnA SORT) = 1 

. 326393 

. 6C/L 

Comment: headings not 

£»1. U2915 

0 . 1. 0 ^ ^0 0 0 

0.9711831 correct in main program 

82.85830 

0. 2000000 

0. 78(^9 889 format 

124. 287U 

0 . 300'^000 

0. 6363430 

165. 7166 

0. 4000000 

0. 5221149 

207. 1 457 

0.5000000 

0. 4288443 

248, 5749 

0. 600^000 

0.351 5248 

290. 0040 

0 . 700?000 

0. 2870403 

331. 4332 

0. 8000000 

0. 2331573 

372. 8623 

0, 9000000 

0. 1881397 

414. 2915 

1. 000000 

0.1502596 

455. 7206 

1 . 1 00000 

0. 1185698 

497. 1498 

1.200000 

0. 9201 595E-01 

538. 5789 

1 . 3 000 0 0 

0. 69820 34E-01 

580. 0081 

1 . 40'1000 

0. 5133690E-01 

621.4 372 

1 . 50^000 

0. 3597379E-01 

662. 8664 

1 . 6 00000 

0. 2325935E-01 

■^04.2955 

1 . ■7 0''0 0 0 

0. 1281303F-01 

745. 7247 

1 . 800000 

0.4265060E-02 

787. 1538 

1 . 900000 

-0. 2655269F-02 

328. 5830 

2. 0 000 0 0 

-0. 8212838E-02 

870, 0121 

2.1 00000 

-0. 1262164E-01 

911. 4412 

2. 200000 

-0. 1603264E-01 

952. 8704 

2.300000 

-0. 1864146E-01 

994. 2-995 

2.4 00000 

-0. 2054586E-01 

1035. 729 

2.500000 

-0. 2190808E-0 1 

107T. 18B 

2. 60000 0 

-0. 2277357E-01 

1 1 18. 587 

2. 70:^000 

-0. 2324410E-01 

1160.016 

2. 300000 

-0. 2340022E-01 

1201 . 445 

2. 900000 

-0. 2329913F-01 

1242. 074 

3 . 003000 

- 0. 2298791E-01 

1284. 304 

3. 1 00000 

-0, 2250897E-01 

1325. 733 

3. 200000 

-0.2189903F-01 

1367. 162 

3. 300000 

-0. 2119117E-01 

1408. 591 

3. 400000 

- 0.2040945F-01 

1450. 020 

3.500000 

-0. 1958042E-01 

1491 . 449 

3. 6 0000 0 

-0. 1871502E-01 

1532. 8-78 

3. 70(^000 

-0. 1783107E-01 

1574. 308 

3. 800000 

-0.1694023E-01 

1615.737 

3. 900000 

-0, 1604555E-01 

1657. 166 

4 , 000000 

-0. 1517245E-01 

1698.595 

4 . 1 00000 

-0. 1431294E-0 1 

1740. 024 

4. 200000 

-0, 1347734E-01 

1781 . 453 

4. 3 000 0 0 

-0. 1267253E-01 


FIG. B.7. OUTPUT DATA FILE PHI'XI, 
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; <PFT'; HFR>PHIK. 1 M on 7-NOV-77 4:37Pfl 


PAGE 1 


DATR FILE CREATED BY PROGPftrt P?^RT2 


OfTT pn'J’ f(7t> Diyp'T’ 
CATrnL»TTOKB OR 


8 T'^EB T, 
PHT K WITH L 


PHASE IT 
= 3P»9. 4071 

** 


ABD SIG SQRD = 1.326393 

Connnent : 


K »T>FIK 

rCHTD 

PHIK CONTT< 

1) 

0. 4741599^-915 

410 . 4475 

0.1500274E-01 

2 .432225 

0, 9483399^-05 

410.6035 

0.1500748E-01 

2. 430946 

0. 1«22510E-'^4 

410. 8626 

0.1501222E-01 

2 .429668 

0. 1 896 6 80E-i^4 

411 . 223 5 

0.15016968-01 

2.42P391 

0. 2370850E-04 

411 . 6845 

0.1502170E-01 

2.427115 

0 . 2S45020E-O4 

412 .2432 

0 . 1502645E-01 

2.425840 

0. 33 191 90R-P4 

412 . 8968 

0.1503119F-01 

2 .424566 

0. 37933 60E-04 

413.6421 

0. 1503593E-01 

2.423293 

0. 4267529E-04 

414 . 4755 

0.1504067E-01 

2 .422021 

0. 47416998-04 

415.3928 

0. 1*^04541E-01 

2.420751 

0. 5215869^-04 

416.3897 

0.15050158-01 

2 .419481 

0 . 5690039^-04 

417. 4612 

0.1505490E-01 

2.418213 

0. 6164 209E-'^4 

418 .6022 

0. 1505964E-01 

2.416945 

0. 6638379E-04 

419. 8074 

0.1506438P-01 

2 .415679 

0. 71 12549E-04 

421.0711 

0. 15069128-01 

2.414414 

0. 75867198-04 

422. 3873 

0.1507386E-01 

2 .413150 

0, 806O889E-04 

423.7500 

0. 15078608-01 

2.411886 

0. 8535059'-?4 

425. 1530 

0.1508335E-01 

2 .410624 

0. 9009229R-04 

426.5900 

0. 1508809E-01 

2.409363 

0. 9483399^-04 

428. 0545 

0.15092838-01 

2 .408103 

0.9957569E-04 

429.5402 

0. 1509757E-01 

2.406844 

0. 1043 1 74E-03 

4 . 91 . 0406 

0.1510231E-01 

2 .405586 

0 . I 09059 IE -03 

432.5493 

0. 1510705E-01 

2.404329 

0. 1 1380088-03 

434 . 0599 

0.1511180E-01 

2 .403073 

0. 1185425F-03 

435 .5663 

0. 15116548-01 

2.401819 

0. 1232842E-0'* 

437. 0623 

0.1512128E-01 

2 .400565 

0. 1280259E-03 

438.5420 

0. 1512602E-01 

2.399313 

0 . 1327676E-03 

439 . 9994 

0.15130768-01 

2 .398061 

0. 1375093E-03 

441 .4290 

0. 1513550E-01 

2.396810 

0. 14225 10E-0? 

442. 8254 

0.1 5140258-01 

2.395561 

0. 1 469927E-03 

444 . 1835 

0. 15144998-01 

2. 394312 

0. 1517344E-03 

445.4982 

0. 15149738-01 

2 .393065 

0. 1564761F-'13 

446.7650 

0.15154478-01 

2.391818 

0. 16121'’9R-03 

447 . 9793 

0.15159218-01 

2 .39057J 

0. 16595958-03 

449. 1372 

0. 15163958-01 

2.389329 

0 . 17070 12R-'^3 

450. 2347 

0.15168708-01 

2 .388085 

0. 17544298-03 

451 .2684 

0.15173U4E-JJ1 

2.386843 

0, 1B01846R-03 

452.2349 

0.151781 8E-01 

2 .385602 

0. 1849263E-03 

453. 1312 

0. 1518292E-01 

2. 384361 

0. 18966808-03 

453.9540 

0.15187668-01 

2 .383122 

0. 19440978-03 

454 .7033 

0.1519241E-01 

2. 381884 

0. 1991514P-03 

455.3'^«‘» 

0.15197158-01 

2.380647 

0.2O38931E-03 

455 . 9665 

0.15201898-01 

2.379411 


line up vith 
columns 

2) PHIK = F (L) 
J 


FIG. B.8. OUTPUT DATA FILE PHIK. 
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APPENDIX C 


CONSTRAINED LEAST-SQUARES ESTIMATION OF TURBULENCE 
AUTOCORRELATION FUNCTION PARAMETERS 

This series of programs computes the maximum likelihood esti- 
mate of Of and length scale L for nonGaussian atmospheric tur- 
bulence, The method used is generally described in Sec. 4 of 
Ref. 1. The computer method used to compute o^ vs L is similar 
to that already discussed in Sec. B. 1. The program, PART5, is 
used to compute up to 15 pairs of a^(L);L values. 

These values are used by program PINAL according to the method 
outlined in Sec. 4 of Ref. 1 to determine Of and L. There are 
several versions of PINAL tailored to particular turbulence cases. 
Only one example is covered by this report. 


Program Outlines and Usage 

Program ATURB3.F4: Computes the two sided power spectrum. 

Si, the autocorrelation function, and smoothed power spectrum 
or the nonGaussian turbulence samples. Usage of this program is 
similar to that outlined in Sec. B.1.1 of this report. 

Program PARTS. F4: Computes o^ for up to 15 different values 

of length scale L (Eq. 4.46, Ref. 1). 

a. Subroutines — none 

b. Inputs 

I. number of data points (M41); step size of k(DELK); 
and step size of ^ (DELX) 

II. whether turbulence record is transverse (T) or 
longitudinal (L) 

III. program reads In data file (PHILK) containing values 
of computed by ATURB3. 

iv, lower and upper bounds of k (KL,KU) and number of 
data points between the two limits (N) 

V. Index counter (J) [from 1 to a limit of 15 

successively] and value of integral scale L (AL) 

Vi, option to continue or abort program after each 
computation of a^(L). 

c. Outputs 

1. index counter (J) and calculated value of o^ for 
the L chosen (Eq. 4.14, Ref. 1), printed out on 
TTY. 
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d. Example 

A typical TTY interaction is shown in Pig. C.l. 


Program FINAL. F4: Computes constrained least-squares esti- 

mation of turbulence autocorrelation function cl)(^) (Eq. 4.1, 

Ref. 1) 


a. Subroutines 

1. AKl and AKDAT — similar to AK and AKDAT described 

in Sec. B.1.1 except more data points are contained 
in AKDAT 

li. GAM and SIMQ — described in Sec. B.1.1 
ill. PARI and PAR2 — curve fitting routines 
iv. DGELG — simultaneous linear equation routine using 
double precision — from the IBM Scientific Sub- 
routine Package 

V. TRAPS and TRAPS — subroutines for Integration by 
trapezoidal rule 

vl. ANRPl — interpolation routine 
vil. SIMP2 — Integration by Simpson *s rule 
vili. Function DECT and subroutine SET are incorporated 
in the main program body of FINAL. 

b. Inputs and TTY printout 

i. if the program has been executed once and the 
contents of all registers saved answer yes (Y) 
and the program will skip the input data phase 
(skip to step vl), otherwise answer no (N) 
il. input step size of ^ (DELX) and number of combina- 
tions of and L pairs that have been computed 
previously and edited into the main program FINAL 
(maximum of 11, Indexed from 0 to 10). [Since 
these values are placed in the main body of the 
program there are different versions of FINAL for 
each different turbulence record] 

Hi. is turbulence record transverse (T) or longitudinal 
(L)? 

Iv. integer value of ^h/L-(NXIH), value of 

m (MM) used in the summation of Eq. 4.1, Ref. 1. 

V. program automatically reads in data from file AUTO 
which contains values of the autocorrelation 
function computed by program ATURB3 

[program prints out value of 
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5'LDflUER 

♦PRRT5S 

PARTS 16K CORE» 1 02£ WORDS FREE 
LOADER USED 18+5K CORE 

EXIT. 

■^C 

SST 


IHPUT MO. OF POINTS TO BE READ* DELK»DELX 
lg916>3. Q9744513E-06>9 .8535 

IS RECORD TRANSVERSE DR LQHGITUDIDNRL <T OR L> X 

INPUT KLjKUjN 
3£4> 1£916> 1£59£ 


input JpL 1p£Q. 

FOR J = 1 SIG£ = 0. 3392710 

PICK ANOTHER JjL <Y DR N> 

INPUT JpL 1p£5. 

FDR J = 1 SIG£ = 0.3340475 

PICK ANOTHER JpL <Y DR N> X 

INPUT JpL 3p35. 

FOR J = 3 SIG£ = 0.3517353 

PICK ANOTHER JpL <Y OR N) X 

INPUT JpL 4p 45. 

FOR J = 4 SIG£ = 0. 3832800 

PICK ANOTHER JpL (.Y DR N> X. 

INPUT JpL 5p55. 

FOR J = 5 SIG2 = 0.4192905 

PICK ANOTHER JpL <Y DR N> X 

INPUT JpL 6p65. 

FOR J = 8 SIG£ = 0.4588356 

PICK ANOTHER JpL CY DR N> X 

INPUT JpL 7p75. 

FOR J = 7 SIG£ = 0.4940900 

PICK ANOTHER JpL <Y DR N> X 

INPUT JpL 8p8g. 

FDR J = 8 SI6£ = 0.5311373 

PICK ANOTHER JpL <Y DR N) X 

INPUT JpL 9p95. 

FOR J = 9 SIG£ = 0.5675591 

PICK ANOTHER JpL <Y OR N> N 


CPU TIME: 4:18.85 ELAPSED TIME: 14:46.23 

NO EXECUTION ERRORS DETECTED 

EXIT. 

-^C 


FIG: e.l. TELETYPE PRINTOUT FOR RUNNING PARTS 


vl , choose an Inl'tlal value of and Its associated 
array index 1; l.e., which index 1 in the array, 
Lji^(a^), is closest to; the array Li(a^) was 
discussed in Sec. C.l.3b 11. 

[program then prints out interpolated value of L 
for value chosen; the value of dL/da^ (Eq. 4.47> 
Ref. 1); and lER should equal (f> or there is an 
error in the simultaneous linear equation routine] 


vli . 


[program outputs solution of 
Sec. 4, Ref. 1, pages 106-109. 


as explained in 
When 


2 

^OUTPUT ^ 


solution has been reached] 


stop loop If ^OUTPUT" equality is not 


reached program reverts to step vi above, if 
equality is reached latest value of becomes Op 
[If equality is reached the program outputs the 
Interpolated value of the length scale L associated 
with Of and the coefficients of the polynomial 
approximation to the autocorrelation function of 
the slow component as discussed In Eq. 4.1 of 
Ref. 1] 

vlli. Input value of step size of k (DELK) 

save Image of core If program Is to be rerun 


c. Output data files 


I. data file ITM2 contains values of the autocorrela- 
tion function (p(^) 

II. data file ITM2L contains values of the normalized 
spectra OpL^j^CkL) , Eq. 4.l6, Ref. 1. 

d. Examples 

Figure C.2 is an example of the execution of program PINAL 
while the first pages from data files ITM2 and ITM2L are shown 
in Figs. C.3 and C.4. 
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3LDRDER 

•FINRLj flKl . flKDRT> flMRPl > GFIM> PflRl t PARS j SIMPS » S IMQ j TRRP3 j TRAPS. DGELGS 

FIMRL 17K CORE. £45 WORDS FREE 
LOADER USED £0+5K CORE 

EXIT. 

''C 

S'SflVE <CORE FROM) 20 <TD) 777777 <DN) FINRL.SRV;6 CNew u-ersidnI 
;i>ST 

HRS DHTR BEEN COMPUTED ? 

N 


INPUT DELX.LMflX 
9. 3525) 10 

IS RECORD TRANSVERSE OR LONGITUDIONRL <T OR L) T 
INPUT HIGHEST INDEX OF XI. EH. & M. 122. 1£0£. 005. 1 
RL<NXIH) = 1.186804 

SIMPSONS RULE USED IN I5S< 16 UP TO L INDEX = 5 

PICK R SIGMA SQRD AND ITS ASSOCIATED L INDEX 
■443.4 


FDR SIGMA SQRD = 0.4430000 L INT = 61.37044 

DLDS = £63.2701 

lER = 0 

FDR NCDUNT = 0 SIGMR SQRD = 0. 4287 123 15655 0342D+ 00 

STOP LOOP ? <y OR N) _N_ 

PICK A SIGMA SQRD AND ITS ASSOCIATED L INDEX 
,44.4 


FOR SIGMR SQRD = 0.4400000 L INT = 60.56512 

DLDS = £68.6132 

lER = 0 

FDR NCDUNT = 1 SIGMR SQRD = 0. 4327416339782993D+00 

STOP LOOP ? <Y DR N) _N_ 

PICK A SIGMR SQRD AND ITS ASSOCIATED L INDEX 
■ 435.3 


FDR SIGMA SQRD = 0.4350000 L INT = 59.22062 

DLDS = £69.1852 

lER = 0 

FDR NCDUNT = £ SIGMA SQRD = 0. 4396273931497085D+00 

STOP LOOP ? <V OR N) Jj_ 

PICK A SIGMA SQRD AND ITS ASSOCIATED L INDEX 

FDR SIGMA SQRD = 0.4370000 L INT = 59.75876 

IiLDS = £68.9564 

lEP. = 0 

FOR NCDUNT = 3 SIGMA SQRD = 0. 4368476 183747 002D+ 00 

STOP LOOP ? <V DR N> 

DH LAST PASS NCDUNT = 3 L = 59.75876 

AND SIGMA SQRD = 0. 4368476183747002D+00 

A< 0) = 1.436821 

A< 1) = -0.2101162E-03 
INPUT DELK 4. 9559E-05. 


CPU TIME: £1.79 ELAPSED TIME: 3:1.07 
NO EXECUTION ERRORS DETECTED 

EXIT. 

.'vi— 


fig. C.2. 


TELETYPE PRINTOUT FOR RUNNING PROGRAM FINAL 


FIG. 


; <fiFISHBfi>ITM2. DAT; 7 Thu 13-Apr-78 3:33Pfl PAGE 1 


DATA FILE CHEATED BY PBOGRAN FINAL 

tfITH H = 1 AMD LENGTH > 1399.055 AUTOCOB. OF FILE YERT2 

OUTPUT FOR PART 9.K 

tfITH L = 61.10212 AND SIGMA SQRD = 0. 44 262 162495 80745D+ 00 

COEFFICIENT A(0) = 1. 432016 

COEFFICIENT A (1) = -0. 2 00 7736 E-0 3 


XI 

R (XI) 

XI CONID 

R(XI) COI 

0. 0000000 

1.874637 

695.4260 

1 .292224 

8.181482 

1 .7 5446 0 

703. 6075 

1. 290595 

16. 36296 

1.6 8934 9 

711.7889 

1.288966 

24.54445 

1.639438 

719. 9704 

1. 287335 

32.72593 

1 .599677 

728.1519 

1 .285703 

40.90741 

1 .566909 

736. 3334 

1.284070 

49.08889 

1.539465 

744.5149 

1.282437 

57.27037 

1.5 16304 

752. 6964 

1. 230 80 3 

65.45186 

1 .496680 

760.8778 

1.279153 

73.63334 

1.480015 

769.0593 

1. 277532 

81. 81482 

1.465732 

777.2408 

1 .275895 

89.99630 

1.45351 4 

785.4223 

1. 274259 

98. 17778 

1.443010 

793.6038 

1 .272622 

106.3593 

1.4339S 1 

80 1. 7852 

1. 270985 

1 14.5407 

1.426150 

809.9667 

1.269347 

122.7222 

1.4 1933 1 

818. 1482 

1. 267708 

130.9037 

1.413496 

826.3297 

1.266111 

139.0852 

1 .408357 

834. 5 1 12 

1. 264468 

147.2667 

1.403872 

84 2.6 9,2 7 

1.262325 

155.4482 

1 .399920 

850. 8741 

1. 261 183 

163.6296 

1.396423 

859.0556 

1.259540 

171.8111 

1 .393309 

867. 2371 

1. 257897 

179.9926 

1.390528 

875.41 86 

1.256255 

188.1741 

1.38801 5 

883.6001 

1. 254612 

196.3556 

1.385737 

891.7815 

1 .252970 

204.5371 

1.383639 

899. 9630 

1. 251327 

212.7185 

1.361708 

908.1445 

1 .249684 

220.9000 

1.379908 

916. 3260 

1. 248042 

229.0815 

1.378214 

924.5075 

1 .246399 

237.2630 

1.376605 

932. 6890 

1. 244756 

245.4445 

1.375066 

940.8704 

1.243114 

253.6259 

1.373533 

949.0519 

1. 241471 

261.8074 

1.372144 

957.2334 

1 .239329 

269.9889 

1.370738 

965. 4 149 

1. 238 186 

278. 1704 

1.369356 

973.5964 

1.236543 

286.351 9 

1.367990 

98 1.7778 

1. 234901 

294.5334 

1.366636 

989.9593 

1 .233258 

302.7148 

1 .365238 

998. 1408 

1. 231615 

310.8963 

1.363 943 

1006.322 

1.229973 

,3. OUTPUT 

DATA FILE 

ITM2. 
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<BPISnBB>ITH2L. 0AT;7 


Thu 13-Apr-78 3:33PM 


PAGE 1 


DATA FILE CHEATED BY PROGfiAM FINAL 

NITH H = 1 AND LENGTH = 1399.055 AUTOCPfi. OF FILE VERI2 

OUTPDT FOR PART 9.L 

BITH L = 61.10212 AND SIGMA SQBD > 0. 44 262 162495 80745 D^00 


0.0000000 
0. 4955 90 0E* 
0.9911800E- 
0. 1486 770E- 
0. 1982360E- 
0. 2477950E- 
0.2973540E- 
0. 3469130E- 
0.3964720E- 
0. 4460310E' 
0.4 955 900E- 
0. 5451490E- 
0.5947080E- 
0. 6442670E- 
0.6938260E' 
0. 7433850 £- 
0. 7929440E* 
0. 8425030E- 
0. 8920620E' 
0. 9416210E- 
0. 9911 800E- 
0. 1040739E- 
0. 1090298E' 
0. 1139857E- 
0. 1189416E- 
0. 1238975E- 
0. 1288534E- 
0. 1338093E- 
0. 1387652E- 
0. 143721 1E- 
0. 1486770E- 
0. 1536329E- 
0. 1585888E- 
0. 1635447E- 
0. 1685006E< 
0. 1734565E- 
0. 1784124E- 
0. 1 833683 E- 
0. 1883242E- 
0. 1 93280 1£- 
0. 1982360E- 
0. 203191 9E- 


L*SI 

04 

04 

'03 

03 

03 

03 

03 

03 

03 

03 

03 

03 

03 

03 

03 

03 

03 

03 

03 

03 

02 

02 

02 

02 

02 

02 

02 

02 

02 

02 

02 

02 

02 

02 

02 

02 

02 

02 

02 

02 

02 


GMA 
27. 
2 7, 
2 7. 
2 7. 
27. 
27 . 
27. 
2 7. 

27. 

2 8 . 

28. 
2 8 . 
2 8 . 
28 . 
2 9. 
29. 
29. 
2 9. 

29. 
2 9. 

2 9. 

30. 

3 0. 
30. 
30. 
30. 
3 0. 
30 . 
29. 
2 9. 
2 9. 
29 . 
2 9. 
2 9. 
2 9. 
2 8 . 
2 8 . 
2 8. 
28. 
2 7. 
27. 
2 7. 


SQfiD*PHIK 
04512 
05972 
10322 
1746 8 
27250 
39492 
53912 
7022 4 
88 132 
07196 
2714 1 
4 7 56 3 
68093 
88372 
08037 
26826 
44337 
60477 
74855 
8735 8 
97794 
0604 7 
12026 
15670 
1694 6 
1585 1 
1243 3 
06643 
9863 1 
8 844 1 
76 15 2 
61890 
45732 
2 7801 
0821 1 
8 7081 
64530 
40675 
15633 
8951 9 
6244 2 
34508 


K CONTD 
0. 2537421E-01 
0.2542377E-01 
0. 2547333E-01 
0.2552289E-01 
0.2557244E-01 
0.2562200E-01 
0. 2567156£>01 
0.25721 12E-01 
0. 2577068E-01 
0.2582024£>01 
0.2586980E-01 
0.2591 936E-01 
0. 2596892E-01 
0.2601 848£>01 
0. 2606303E-01 
0.261 1 759E-01 
0. 2616715£*01 
0.2621671E>01 
0. 2626627£-01 
0.2631583E-01 
0. 2636539E-01 
0.2641 495E-01 
0. 2646451E-01 
0.2651 407E-01 
0. 2656362E-01 
0.2661318E-01 
0. 2666274£>01 
0.2671230E-01 
0. 2676186£>01 
0.2681 142E-01 
0. 2686098E-01 
0.2691 054E-01 
0.26960 10E-01 
0.2700966E-01 
0. 2705921E-01 
0.2710877E-01 
0. 2715833E-01 
0.2720789E-01 
0. 2725745E-01 
0.2730701E-01 
0. 2735657E-01 
0.2740613E-01 


L*SIGMA SQRD*PHIK CONID 
0.9893473 
0.9861678 
0 . 9 8 30 0 4 6 
0.9798576 
0.9767265 
0.9735113 
0.9705120 
0.9674285 
0.9643604 
0.9613077 
0.9582707 
0.95521487 
0. 9522419 
0.9492503 
0.9462735 
0.9433116 
0.9403645 
0.9374319 
0.9345141 
0.9315105 
0.9287214 
0.9258455 
0.9229858 
0.9201392 
0.9173066 
0.9144877 
£.9 1 16827 
0.9088914 
0. 9061136 
0.9033495 
0. 9005986 
0.8978612 
0.8951369 
0.8924250 
0. 8897280 
0.8870430 
0.6843709 
0.88171 IS 
0.8790650 
0.8764312 
0.8738097 
0.8712008 


FIG. C.4. OUTPUT DATA FILE ITM2L. 
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APPENDIX D 


POWER SPECTRAL DENSITY OF THE INSTANTANEOUS VARIANCE a|(t) 

^The estimation procedure for calculating the power spectrum 
of af is discussed in Sec. ^6,2 of Ref. There are two main 

programs used to compute ATURB4 .F4 and ITEMS. The first 
program, ATURB4, computes the two sided power spectrum of high 
pass filtered atmospheric turbulence data, wj^(t). The unsmoothed 
power spectral density, $j,(.k), and its autocorrelation, R^ (C)j 

of the high pass filtered data are all computed by this one 
program. From the square of the high pass filtered samples, wj, 
the sample spectrum and autocorrelation function, R zC^) are 

formed by a slight variation of ATURB^I called ATUR^A.F^. 


The second program, ITEMSs computes the autocorrelation 
function, R 2 (t), Eq. 6.40, Ref. 5, and the two sided smoothed 
f 

spectrum of a^(x): 


$^2(k) = {E[ap}|6(f) + I^PqC?) 

-M 


R 2(n-CR„2(0)]2-2[R, (O] 
% ^h 


w- 


h 


[R„ (0)]= +2 [R (5)]^ 
h h 




where p„(5) = <^ Isln + |l 


(l - hij cos < M 


This equation is similar to Eq. 6.49? Ref. 5 except the Papoulls 
window, Pp(^), has been added to smooth the power spectrum. 


Program Outlines and Usage 

Program ATURB4: Computes the two sided power spectra and 

autocorrelation function of high pass filtered turbulence samples. 
(ATUR4 a parallels ATURB4 except it operates on the square of high 
pass filtered turbulence samples). 
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a. Subroutines 

I. CPPT and CPPTl — fast Pourler transform routines 
for ATURB4 and ATUR4A respectively 

II. SIMP — Integration by Simpson’s rule 

III. HPDES — digital high pass filter (routine C-2 of 
Appendix C of Ref. 6) 

b . Inputs 

1. through V are the same as Sec. B.l.lb 1 to v 

vl. input the cut-off frequency k^^CFC) for the filter 

routine; sampling Interval (TS) In seconds; and 
number of filter sections (NS), see Ref. 6 

vll. yes (Y) or no (N) to performing integration check 
as per B-l.lb vl 

c. Outputs 

I. data files PHILK and FPSD2 contain positive fre- 
quency domain (k) values of the power spectrum of 
the high pass filtered data and the high pass 
filtered squared samples respectively 

II. data files AUTO and AUTP2 contain the autocorrela- 
tion functions of the filtered and filtered squared 
data 

d. Example 

The teletype printout Involved with program ATURB4 Is shown 
in Fig. D.l. ATUR4A would Involve an Identical interaction (except 
CFFTl would be loaded instead of CFFT with the main program) . 
Figures D.2 through D.5 show examples of outputs of ATURB4 — PHILK 
and AUTO; and ATUR4A - FPSD2 and AUTF2. 

Program ITEMS. F4: Computes the spectrum $ 2 (k) and auto- 
correlation function R 2 (C)* ^f 

Ox. 


a. Subroutines 

1. CFFTl — fast Fourier transform program 

b . Inputs 

I. step size of C (DELX) 

II. program automatically reads data from files AUTO 
and AUTF2 containing R and R 2 

^h ^h 
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LOADER U'^C 
''C 

9LDRDER 

♦ATURB4 j CFFT j S I MP > HPDES* 

RTURB4 69K CORE, 762 WORDS FREE 
LOADER USED 72+5K CORE 

EXIT. 

^•C 

9SRVE <CORE FROM? £0 CTO? 777777 COM? RTURB4.SRV;£ CNew i/ersidn3 
5>ST 


INPUT SPEED OF CRAFT <M-^SEC) 
197. 05 


INPUT TOTAL NO. OF POINTS TO BE USED IN £L M. OF DATA 
AND POWER OF TWO OF THAT NO. 

32768 

15 


INPUT NO. OF POINTS OF W <X? TO BE READ 
AND SAMPLING RATE OF DATA 15000? . 05 


INPUT VALUE OF MPTS 

AND POWER OF TWO OF THAT NO. 

1024 

10 


INPUT DATA FILE NAME THAT CONTAINS SAMPLES 

OF W<X> AND NO. POINTS NXRAY 

VERT2 

15000 


INPUT CUT-OFF FREO? SAMPLING INTERVAL?ND. OF FILTER SECTIDNS5. 91 15E-01 ? . 0 
♦♦5 ? £ 

PERFORM INTEGRATION CHECK <Y OR N? Y 


INTEGRAL OF PHI OF L CK? = 0.2211E+00 

CPU time: 6:50. £4 ELAPSED TIME: 13:19.00 

NO EXECUTION ERRORS DETECTED 

EXIT. 

^C 


FIG. D.l. TELETYPE PRINTOUT FOR RUNNING ATURB4. 
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I <nrl9HEP>PHlLK,bATM ThU l«0eC«77 9|59AM 


PikGE 1 


data pile created by program ATURB4 

high pass filtered data 

CUT«OFF FREQ m 0.S9U500 (K • 0. 3000000E«02) 

POWER Spectrum or phi of L(K) 

DATA taken from FILE VERT2 


32769 DATA POiNTi WERE USED IN 2L m 322B46.7190 METER 
1024 data POINTS WERE USED IN M « 1008B.9600 METER 


17769 ZEROS here ADDED TO DATA 

MEAN value of w(X) • •0.742l4E*05 M/SEC 

mean so. value m 0.22110E400 (M/SEC)««2 

<H or L(X)»«2> • 0,2210 


printout or the values of the power SPECTRUM 


K 

PS VALUE 

K CONTD 

PS VALUE CONTD 

0^000000 

0.1349E-13 

01029374 

0,8273E>00 

0,000003 

0,1048E«04 

0^029377 

0,1593E<f00 

0,000006 

0,9639E«09 

0,029380 

0.9468E-01 

0^000009 

0,f 124E«09 

01029394 

0.4748E»01 

0,000012 

0.9423E-09 

01029387 

0,1841E«01 

0^000019 

0,7l 17C«05 

0,025390 

0,1S67C^00 

0^000019 

0,9116C»05 

0^025393 

0.S845E400 

0^000022 

0.7376E-09 

0.029396 

0.9412E400 

0^000029 

0.9799E*0S 

0I025399 

0.85S2C400 

0,000029 

0,9711E»09 

01029402 

0,4249E400 

0,^000031 

0.94l4E*09 

0 ', 029409 

0,1030E401 

0^000034 

0,9044E»09 

0,029408 

0.1139E401 

0,000037 

0,9110E*09 

0.029411 

0,3692E4'00 

0^000040 

0,i260E«09 

0I029419 

0,7724E*00 

0,000043 

0,969SE«05 

0,029418 

0,6922E4>00 

0*^000046 

0,i4l7C«0S 

0,029421 

0,2323E4>00 

0^000090 

0,7823E*0S 

0^029424 

0,2026E«01 

0,000093 

0,9469E»09 

0,029427 

0.4337E^00 

0^000096 

0,7B31C«0S 

0,029430 

0,8168E;00 

0^000099 

0,9410E*09 

0,029433 

0,9790E4>00 

0^000062 

0,7951E«09 

0,029436 

0,1324C4>01 

0^000069 

0,8391E»09 

0.025439 

0.1206C401 

0,000069 

0,9036E«09 

0I025442 

0.4376E400 

0.000071 

0,9143E«09 

01029446 

0,1843E^01 


FIG. D.2. OUTPUT DATA FILE PHILK. 
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<FFISHER>AUTO. DAT; 1 


Thu 1-Dec-77 10:03AM 


PAGE 1 


DATA PILE CPEATRT) BY PROGRAM ATUHBa 
AnrOCORRELATTON OP 

HIGH PASS FILTERED NON-HOMOGENEOUS SAMPLE 
DATA TAKEN FROM PILE VERT2 


FIG. 


D.3 


32'768 DATA POINTS WERE USED IN 2L = 322846.7190 METER 

1024 DATA POINTS WERE 8SED IN M = 10088.9600 METER 


17768 EEROS WERE ADDED TO DATA 


MEAN VALOE OF W(X) = ”0.74214E-05 H/SEC 

MEAN SQ. VALDE = 0.22110E+00 (K/SEC)**2 

<W OF L (A) **2> = 0 . 2210 

TRnCATION POINT WAS 13000.00 METERS 

WHICH CONTAINS 1319 POINTS 


PRINTOUT OF THE VALUES OF THE AUTOCORRELATION 


X RL RL/R0 


0.0000000 

0.2210828 

1.000000 

9.852500 

0. 1 366631 

0.6181535 

19.70500 

0.7223809E-01 

0.3267467 

29.-5575 0 

0.2718233E-01 

0-1229509 

39.41000 

-0.5 175197E-02' 

-0.234084 1E-01 

49.26250 

-0.2545530E-01 

-0.1151392 

59.11500 

-0.3989603E-01 

-0i 1804574 

68 .96750 

-0.4644818E- 01 

-0.2100 940 

78.82000 

-0.4698692E-01 

-0.2125308 

88.57250 

-0.4595287E-01 

-0.2078536 

98.52500 

-0. 467866 0E-01 

-0.2116248 

108. 3775 

-0.4089274E-01 

-0. 1849657 

118.2300 

-0.3525967E-01 

-0. 1594862 

128.0825 

-0.3052934E- 01 

-0.1380901 

137.9350 

-0.2747492E-01 

-0. 1242743 

147. 7873 

-0.2431214E-01 

-0.1099685 

157. 6400 

-0.2179220E-01 

-0.985703 IB-01 

167, 4925 

-0.1 709930P-01 

-0.7734341E-01 

177.3450 

-0.1068496E-01 

-0. 4833010E-01 

137. 1975 

-0.3274173E-02 

-0.1480971E-01 

197. 0500 

0.1 1466R9E-02 

0.5186693E-02 

206, 9025 

0.6017922E-02 

0.2722021E-01 

216.7550 

0.9448106E-02 

0.4273559E-01 

226.6075 

0.1 239062E-01 

0.5604516E-01 

OUTPUT DATA 

FILE AUTO. 
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<RFTSHKR>FT>SD2. DAT; 1 


Thu 1-nec-77 12;iapn 


PAGE 1 


DATA FILE CREATED BY PROGRAH ATtI RB4 
HIGH PASS FILTERED DATA 

COT-OFP FREQ = 5?i.S911530 (K = 0. 3000000E-02) 

FILTERED VERSIOM SQUARED BEFORE TRANSFORMING 
POaER SPECTRUM OP PHI OF L (K) 

DATA TAKEN FROM FILE VERT2 


32768 DATA POINTS HERE USED IN 2L = 322846.7190 METER 

1024 DATA POINTS HERE USED IN M = 10088.9600 METER 


17768 ZEROS HERE ADDED TO DATA 


MEAN VALUE OF W(X) = -0 . 7421 4E- 05 M/SEC 

MEAN SO. VALUE = 0.221 10E>00 (H/SEC)**2 

<H OF L(X)**2> = 0.4627 


PRINTOUT OF THE VALUES OF THE POHER SPECTRUM 


K 

PS VALUE 

K CONTD 

PS VALUE CONTD 

0. 000000 

0. 7224E+04 

0.025374 

0.2 112E+01 

0. 000003 

0. 3957E+04 

0. 025377 

0.3 822E+01 

0. 000006 

0. 6459E+03 

0. 025380 

0.2336E+01 

0. 000009 

0. 1359E+04 

0. 025384 

0.2389E+01 

0. 000012 

0. 1438E-I-04 

0. 025387 

0 .5410E+0 1 

0.000015 

0. 5900E + 0 3 

0. 025390 

0.3918E+01 

0. 000019 

0. 373 1E+0 3 

0. 025393 

0.7773E+00 

0.000022 

0. 138 1E + 03 

0. 025396 

0.2330B+01 

0. 000025 

0. 7 375E + 0 2 

0. 025399 

0 . 3844E+0 1 

0. 000028 

0. 361 2E+03 

0. 025402 

0.2807E+01 

0. 000031 

0.5 75 1E+0 3 

0. 025405 

0.2275E+01 

0.000034 

0. 3 75 3E+0 3 

0. 025408 

0.1 228E+01 

0.000037 

0. 2580E+0 2 

0. 025411 

0.1 186E+00 

0. 000040 

0. 2465E+0 3 

0. 025415 

0.1 594 E+01 

0.000043 

0.4334E4-03 

0. 025418 

0.2782E+01 

0.000046 

0. 1599E+03 

0. 025421 

0.1 292E>01 

0.000050 

0. 2256E + 0 3 

0. 025424 

0.7048E+00 

0. 000053 

0.3 186F+0 3 

0. 025427 

0 .3248B+01 

0.000056 

0. 1056E+03 

0. 025430 

0 .4490E+01 

0.000059 

0. 286 1E+02 

0. 025433 

0.1 749E+01 

0.000062 

0.2717E+02 

0. 025436 

0.4573E+00 

0. 000065 

0. 6028E+0 2 

0. 025439 

0.3822E^01 

0.000068 

0. 1258E^0 3 

0. 025442 

0.7 261E+01 


FIG. D.4. OUTPUT DATA FILE FPSD2. 


I 

I 



<t>pishER>AUTF2. DAT ; 1 


Thu 12:20PM 


PAGE 1 


DATA FILE CREAfED BY PROGRAM ATDRB4 
ADTOCO-^RELATION OP 

HIGH PASS filtered AND SQUARED NON -HO HOGENEOUS SAMPLE 
DATA TAKEN FROM PILE VPRT2 


32768 DATA POINTS 

WERE USED IN 2L 

= 32284- 

1024 DATA POINTS 

WERE USED IN M = 

10088 . 

17768 ZEROS HERE 

ADDED TO DATA 


MEAN VALUE OF HfX) 

= -0.74214E-05 

K/SEC 

MEAN SQ. VALUE = 

0.22110E+00 (M/SEC)**2 

<9 OP L (X) **2> = 

0.4627 


TRHCATION POINT WAS 13000.00 

METERS 

WHICH CONTAINS 

1319 POINTS 


PRINTOUT OF THE VALUES OF THE AUTOCORRELATION 

X 

PL 

RI/R0 

0.0000000 

0.4629917 

1 .000000 

9. 852B00 

0 . 2 6 3 4 73 4 

0.5690672 

19.70500 

0.1654293 

0.357305 1 

29-55750 

0.1 367036 

0.2952614 

39.41000 

0. 127211 1 

0.2747590 

49. 26250 

0. 1450926 

0.3133805 

59,11 500 

0.1577147 

0. 3406427 

65.96750 

0. 1 564650 

0. 3379434 

78.82000 

0. 1460383 

0.315423 1 

88.57250 

0.1 341455 

0.2897362 

98.52500 

0.1 194356 

0. 2579648 

108. 3775 

0.1 148353 

0.2480288 

118. 2300 

0. 1207423 

0.2607872 

128.0825 

0.1143026 

0.2468782 

137, 9350 

0. 1 129238 

0, 243900 3 

147. 7875 

0. 1129470 

0.2439503 

157, 6400 

0.1232595 

0.266224 1 

167. 4925 

0.1278594 

0.2761592 

177. 3450 

0.1 114554 

0.2407 286 

137. 1975 

0.1 117146 

0.2412886 

197. 0500 

0. 1127996 

0.2436319 

206- 9025 

0. 1065844 

0,2302079 

216. 7550 

0. 1 123870 

0.2427407 

226.6075 

0.1 149910 

0.2483651 

FIG. D.5. OUTPUT DATA FILE AUTF2. 
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111. Input Of (SIGF) and L determined in Sec. C.1.3 
Iv. number of points In Fourier transform (MPTS) and 
power of two of that number (MPWRM) 


c . 


d. 


Outputs 

I. data file RSIGF containing values of R 2 (C) 

f 

II. data file PHIP containing the smoothed power 
spectrum values of $ 2 (k). 

Example 


An example of the input through the teletype Is given In 
Fig. D.6 while Pigs. D.7 and D.8 show one page from each of the 
data files RSIGF and PHIF. 



SLORDER 

♦ITEM3?CFFT1S 

ITEMS IIK CORE? 353 WORDS FREE 
LOADER USED 14+5K CORE 

EXIT. 

5JST 


INPUT DELX 
9.8535 


RWH<MRDFF> = 0.3880105E-0E 

RWH2<MROFF> = 0- 464358 OE-01 

INPUT SIGNR SQRD^ L 
. 46Q9y 65. 89 


INPUT M AND POWER OF 2 
1 024j 1 0 


CPU time: 52.13 ELAPSED TIME: 1:53.21 
NO EXECUTION ERRORS DETECTED 

E>^IT. 


FIG. D.6. TELETYPE OUTPUT FOR RUNNING ITEMS. 
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I <RFlSHER>R5IGr,0AT|3 ThU t*0#c-77 4i30pM 


PAGE 1 


DATA FILE CHEATED BY PROGRAM ITEM3 

for sigma squared 9 0.4609000 AND Ali ■ 6S.89000 


XI 

0,0000000 

9.853S00 

19.70S00 

29,85750 

39,41000 

49,26250 

59,11500 

68,96750 

78,83000 

88,67350 

98,52500 

108,3775 

118,2300 

128,0825 

137,9350 

147,7875 

157,6400 

167,4925 

177,3450 

187,1975 

197,0500 

306,9035 

316,7550 

336,6075 

236,4600 

346,3135 

356,1650 

266,0175 

275,8700 

385,7235 

295,5750 

305,4375 

315,3800 

325,1335 

334,9850 

344.8375 

354.6900 

364,5435 

374,3950 

384,2475 

394,1000 

403.9535 

413,8050 

433,6575 

433,5100 

443.3625 


RSIGF 

0' 6707419 

0^6490613 

0,5924702 

0,5766969 

0^5522717 

0.6143047 

0^6435365 

0,6248567 

0,5821151 

0,5366453 

0,4764114 

0,4671271 

0,4993594 

0.4785250 

0‘ 4760772 

0,4792910 

0.5254913 

0,5491249 

0,4821481 

0,4853142 

0,4902162 

0,4635451 

0,4866718 

0,4966468 

0,5135362 

0.5233681 

015119346 

0,4612299 

0,4421363 

0,4679804 

0,4891356 

0,5169329 

0,5398064 

0,5117880 

0.5550355 

0,5224204 

0,4743931 

0.4484167 

014570057 

0,4884470 

0,5384777 

0,5555076 

0,5483339 

0,4959692 

0.4385263 

014048591 


FIG. D.7. OUTPUT DATA FILE RSIGF. 
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I <Rri5HER>PHlr,DiiTf 3 ThU 1-Dee«77 4|10PM 


PACE 1 


DATA PILE created BY PROGRAM ITEMS 

smoothed power spectrum phi or sigma SQRD P(K) 

1024 data points were USED IN M • 100BS.9S00 PT. 

RHHC0) ■ 0,2210428 


FIG. 


printout op values op the smoothed power spectrum 

K SPS VALUE K CONTD SPS VALUE CONtD 

0^000000 0,1388E4’04 0.025374 0,1005E^01 

0,000050 0,|007E*04 0,025424 0,3967E<f00 

0,000099 0,4l27Et03 0,025473 •0,1887E*01 

0,000149 0,|884e^ 03 0.025523 •0,3033Ef01 

0,000198 0,1740E4'03 0^025573 •0,7258E^00 

0.000248 0,1394E*03 0,025622 0,3225E401 

0,000297 0,l768Ef02 0.025672 0,3959E4>01 

0,000347 0,I885E402 01025721 0.1401E401 

0,000396 0.3664E402 0,025771 0,lH2Ef01 

0,000446 0.I377E402 0,025820 0,37SlE401 

0,000496 0.4061E402 0,025870 0.3992C401 

0,000545 0,6361C402 0,025919 0,1706E40i 

0,000St95 0,6199E402 0,025969 0.6458E400 

0,000644 0,5726E402 0,026019 «0.1602E400 

0,000694 0,7I00Et02 0,026068 »0,1048E401 

0,000743 0.7442E402 0,026118 0,3609C400 

0,000793 0.5749E402 0,026167 0,1975C401 

0,000843 0.I533E402 0,026217 0.2340E401 

0,000892 0,7045E402 0,026266 0.2586E401 

0.000942 0.6358E402 0,026316 0.1789E401 

0,000991 0,f858C402 0.026365 0,8118E400 

0,001041 •0,t60lE401 01026415 0,1144E401 

0,001090 •0,9461E401 01026465 0,1232Ef0t 

0,001140 •0,6386E401 0.026514 0,8538Et00 

0,001189 *0,5456E401 01026564 •0.5051E400 

0,001239 «0,1733E401 0.026613 •0,2l48Et01 

0.001289 •0,9891E401 01026663 *0,2239E401 

0.001338 •0,6303E401 0,026712 «0,1680E401 

0,001388 0,3264E401 0,026762 •0.1419E401 

0,001437 0,8319E401 0,026811 •0,ll43E40t 

0,001487 0,8763E401 0,026861 •0,1863Ef01 

0,001536 0,9509E401 0.026911 •0.4201E401 

0,001586 0,?367E401 0,026960 •0,4662C401 

0,001635 0,I612E400 0,027010 •0.1828E401 

0.001685 *0,t582E401 0,027059 0,4374E*02 

0,001735 •0,9394Ef01 0,027109 •0.2595E400 

0,001784 0.I060E401 0,027158 0,1S73E400 

0.001834 0.1579E402 0,027208 0,1628E401 

0,001883 0,1587E402 0.027258 0.1666E401 


D.8. OUTPUT DATA FILE PHIF. 
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APPENDIX E 

PROBABILITY DENSITY ESTIMATION OF THE INSTANTANEOUS VARIANCE a%{t) 
AND THE "SLOW" TURBULENCE COMPONENT w^Ct) ^ 

The methods used to develop the probability density function 
of aj(t) and w (t) are given In Sec. 6.3 and 6.4 of Ref. 5 . 

X 5 

Three programs are necessary to carry out the computations — 
MOMENT . P4 5 ITEM.P4, and GDIST6.P4. MOMENT calculates the moments 
of as per Eq. 6 . 7 I, Ref. 5. GDIST computes the probability 
density function of as described In Ref. 5 — BBN Report 3476 , 
pages 88-91. ITEM4 calculates the moments of M^ , Eq. 6. 87 3 

Ref. 5 and the probability density function P , Eq. 6,933 Ref. 5 . 

Program Outlines and Usage 

Program MOMENT. F4: Computes first 8 moments of M 2 j 

Eq. 6 . 7 I 3 Ref. 5 . ^ ^f 

a. Subroutines 

I. BIN — tabulates the number of samples In a 
particular bln 

II. BINSQ — counts the number of filtered squared 
samples In a certain bln 

III. HPDES — high pass digital filter routine from 
Ref. 6 

b. Inputs 

I. number of data points to be used (NPTS) 

II . name to be used for output data file [PLE 3 A5 
format ] 

III. bln width (BINW) 

Iv. number of bins (NBIN) 

V. cut-off frequency (PC); sampling Interval 
(TS), and number of filter section (NS) 
vl. bln width and number of bins for filtered data 
(BINW and NBIN) 

vll . bln width and number of bins for filtered squared 
data (BINWl and NBINl) 
vlil. Input (computed In Sec. C.1.3) 

c. Outputs (at TTY) 

I . moments of w(t); M^ n = 1 to 8 

w 

II . moments of w, ; n = 1 to 8 

h Wh 
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111. moments of Vf-wi n = 1 to 8 

^ Wh 

Iv. moments of cr^; n = 1 to 8 

I 

d. Example 

Figure E.l contains an example of the teletype Inputs and 
outputs . 

Program 6DIST6.F4: Computes the probability density distri- 

bution P 2 
^f 

a. Subroutine 

1 . GAM — computes the gamma function T 

b. Inputs 

1 . moments of ai; M 2 

c. Outputs (at the TTY) 

I . Y — Eq. 6.755 Ref. 5 

II. P 2 “ the probability density function of 

^f . ^ 

d. Example 

Figure E .2 contains a partial listing of the terminal print- 
out for program GDIST6. 

Program ITEM4.F4: Calculates the probability density 

function of w^(t): P^ 

' s 

a. Subroutine 

1 . FACl — factorial routine 
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lliaNE^,BlN,IIHni,»PDEB« 

RHENT {OK COIE, M< lOIDS FREE 
LMIER BtEI 23«SI CORE 

EXIT. 

*C 

«T 

tirvT MO. or MTi foiiTi iaooo 
INTUT brim RtCORI WiC ICTT2 


IIPUT IIH UIITI 

Ml. IF BUS iniM. 


.014 

1400 


TOIM. Ml. IF rOIlTI UIEI FIR IS! PISS •ISOIO.IO 


HMEHTE 

or U(X> 


K • 1 

AlPttI > 

0.4442477E-03 

ff ■ 2 

ALPMU • 

I.II14ID 

( ■ 3 

ALFRU ■ 

I.21F347I 

1*4 

ALFRU • 

10.43151 

( • S 

ALFRU • 

S.4J30A7 

R ■ 4 

ALFHI > 

lU.fPtS 

« • 7 

ALFHU - 

142.7441 

R > I 

ALFRU • 

1114.041 

IIPUT CUT-OFF FXEI 
S.911X-O1,.0S,2 

(SANPLIID IHIERVAL 


HMENTS IF riLlEIED U 


IIPUT IIH UIITI 
W. IF BUS rOTOL 
.014 
1000 


TOIM. Ml. IF POIMTS ISEI FIR 1ST PABE •ISOIO.OO 



1 

ALFHUH • 

-I.242443FE-I4 


2 

ALFHUN • 

0.2211038 


3 

ALFHIH • 

0.122401 7C'02 


4 

ALFHUH « 

1.4427321 


3 

ALFHUR • 

0.1I»4I77 


4 

ALFHUH > 

2.471140 


7 

ALFHUH > 

2.3I0S71 


1 

ALFHIH ■ 

23.74910 


CMPUTE RDRERTT5 FOI l*U 

llPUl BIN UIITH 
RO. or BINI 
.03571 
700 


TOTAL MO. IF POIITI UiEI FIR 1ST PAIS ■ISOOI.OI 



1 

ALFHU2 • 

•.224tt1» 


2 

ALFHU2 > 

0.44I0FS8 


1 

ALFKI2 > 

2.474421 


4 

ALFRU2 • 

21.01041 


3 

ALFRU2 • 

11I.I40F 


4 

ALFHU2 • 

4431.121 


7 

ALFRU2 « 

13017.13 


1 

ALFHI2 - 

1117431. 


CRRFUTE RORERTI IF IIIHA SDID F 
IRPVI Sli IIRI F .4409 


1 Allie • I.440T0I0 
R> 2 ALII6 - 0.440I21S 

R< 3 ALIlt - 1.S0M44 

N« 4 AlllB • 4.24SS2I 

N> S ALIIB « 11.B44S4 

N* 4 ALI16 • M.SI17I 

M* 7 ALIIB - 71.IS7B7 

H> B ALtll > 141.1701 

CPt IIlKi 1122.13 ELAPIED TllEi 9tSI.21 
HI EXECUTIOR EMDRt lETECTEI 

r»iT- 


FIG. E.l. TELETYPE PRINTOUT OF INPUTS AND OUTPUTS OF PROGRAM 
MOMENT. 
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F40 

♦GfiM=GflM 

GfiM ERRORS DETECTED: 0 

9K CORE USED 


♦'•C 

5'LDftDER ♦ 

♦GDIST6? GfiM* 

GDIST6 3K CDREj 197 WORDS FREE 
LOfiDER USED 6+5K CORE 

EXIT. 

^■•c 

9ST 

INPUT fiLPHF : 

. 46 09 
• 64 09275 

I. 509566 
4.24552 

II. 84454 
30.51175 


GfiMMfi = 

0.4957514 




X 

FIPRM 

F2PRM 

F3PRM 

F4PRM 

0. 07 

2.629587 

2.568655 

2.490394 

2.440631 

0. 13 

1.730845 

1.729292 

1 . 753583 

1.798062 

0.20 

1.316895 

1.340347 

1.403987 

1.480339 

0.26 

1 . 063073 

1 . 098345 

1. 177042 

1.261538 

0.33 

0. 8864120 

0.9266947 

1 . 008244 

1. 089494 

0.39 

0.7543590 

0.7957138 

0.8734558 

0.9457618 

0. 46 

0. 651 0620 

0.6911143 

0.7614079 

0.8221444 

0.52 

0.5676976 

0.6050170 

0.6660199 

0.7143386 

0.59 

0.4988822 

0.5326439 

0.5836338 

0.6197396 

0. 65 

0.4411022 

0.4708831 

0.5118475 

0.5365624 

0.72 

0.3919436 

0.4175922 

0.4489650 

0. 4634521 

0.79 

0.3496791 

0.3712275 

0.3937150 

0.3993006 

0.85 

0. 3130320 

0.3306351 

0. 3450979 

0. 3431546 

0.92 

0.2810325 

0.2949255 

0.3022969 

0. 2941690 

0.98 

0.2529274 

0.2633948 

0.2646258 

0.2515816 

1.05 

0.2281204 

0.2354738 

0.2314955 

0.2146990 

1.11 

0. 2061320 

0.2106943 

0.2023926 

0. 1828883 

1.13 

0. 1365708 

0. 188&64fc 

0. 1768647 

0. 1555721 

1.24 

0. 1691139 

0. 1690534 

0. 1545104 

0. 1322240 

1.31 

0. 1534916 

0. 1515770 

0. 1349719 

0. 1123657 

1.37 

0. 1394771 

0. 1359909 

0. 1179288 

0.9556370E-01 

1.44 

0. 1268777 

0. 1220822 

0. 1030944 

0.8142707E-01 

1.51 

0. 1155286 

0. 1096651 

0.9021136E-01 

0.6960408E-01 


FIG. E.2. TELETYPE PRINTOUT FOR RUNNING GDIST6. 
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c. Outputs 


1. data file PROS containing moments of w 3 M , 

S Wg 

and the probability density function . 


d. Example 

Figure E.3 Is an example of the teletype printout created by 
program ITEM4 and Pig. E.4 contains the first page of data file 
PROB. 
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ITEM4 3K CDRE» 364 WDRDS FREE 
LPftDER USED 6+5K CORE 

EXIT. 

3PS.T 

INPUT RLPHWHy RLPHW VRLUES> 

r-.a4g6659E-04> ,466£677E-05 
.ggll053> 1.3116 
■3ga4Q17E-Qg> .£195678 
■46£73£> 10,63055 
■ 1 3941 77> 5 .433067 
£.67196> 116.9995 
£.330371 yl6£. 7648 
£5. 7693 >1994. 063 

INPUT SIGMR SQRD F .4609 


PRDB DENSITY FN. 

CPU TIME: 1.87 ELRPSED TIME: 1:47. 8£ 
ND EXECUTION ERRORS DETECTED 

EXIT. 

^'C 

?LIST PRDB.DRT?3 
9 


FIG. E.3. TELETYPE PRINTOUT FOR RUNNING ITEM4. 
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I <RriSHER>P«OR'.DAT| 3 


we<j i4-Dec-77 2l31pM 


PAGE 1 


FIG. 


DATA niiE created 

BY program TtEM4 

atmospheric TUrBuI.ENCE task, phase 

for sigma SORD e 

9 0,4609000 

the values of alpha of ws are: 

N ■ IALPHA ws m 

0.3O69848E-04 

N 9 2ALPHA WS ■ 

1 ,350700 

N 9 3ALPHA WS M 

011949038 

N * 4ALPHA WS 9 

4.884669 

H 9 SALPHA WS 9 

3,326249 

N ■ 6ALPHA W5 9 

18^19409 

H 9 7ALPHA WS 9 

56.67557 

H 9 SALPHA WS a 

•344,2492 

THE probability ORNSITY FN. isi 

WS 

P(WS) 

0^00000(9(9 

0,3294248 

•0,47021 B9E-01 

0,3300615 

•0.9404378E-01 

0,3302435 

-0,1410657 

0,3299658 

-0’,1SB0S76 

0,3292255 

•0,2351094 

0,3280209 

-0.2B21 3t 3 

0,3263524 

-0.3291532 

0,3242220 

•0,3761751 

0,3216337 

-0,4231970 

0,3185931 

-0.4702189 

0,3151000 

•0,5172408 

0,3111800 

-0^5642627 

0,3068443 

-0,61 12B45 

0,3020904 

-0,6563064 

0,2969412 

-0‘.7053283 

0,291 41 38 

-0,7523502 

0,2855266 

•0^7993721 

0,2792998 

•0,6463940 

0,2727550 

-0'.8934159 

0,2659153 

-0,9404378 

0,2508050 

-0,9874597 

0,2514495 

-t .034482 

0,2438750 

•1 ,081503 

0.2361008 

•1,128525 

0,2281785 

-1.175547 

0.2201123 

-1,222569 

0,2119386 

-1 .269591 

0,2036058 

•1 ,316613 

0,1953822 

-1 ,363635 

0,1870557 

-1 ,410657 

0,1787340 

.1,457679 

0,1 704437 

•1.504700 

0,1622108 

-1 ,551722 

0,1540602 

. OUTPUT DATA 

FILE PROS, 


107 




APPENDIX F: COMPUTER PROGRAM LISTING 
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Subroutine AKl 



C' 

c 

c 


C' 

c 

10 

20 

40 

30 

C 


SUBPOUTINE aKCI,XP1. AKZ) 
COMMON/AA/ftKlCl00}#AK2n00 5 


IF (XPl,GTll0,,OR.Xpl.LT'/.n GO TO 10 

PI « 3.141^9265 

IXMID m IFixCXPl/.t 4 .51 

IF Cl.Co'.n AKZ m AKJ ( lXMIO)*PI/2 , 

IF (T.E0.23 AKZ * AK2 ( lXMID)#Pl/2 . 

GO TO 30 

IF (XPI.LTJ.,!) type 40.XP1 
IF (XP1,GT.10,5 TYPE 20,XPt 

FORMATC* X GT 10'.0, CAMMOT COMPUTE# X ■*#G) 
F0PMAT(* X LT 0.1, CANNOT COMPUTE, X **,G) 
RETURN 

END 
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Subroutine AK 



o n o o o no 


EDIT BY RFISHER 


C <RFTSHER> ftK. F4; 1-NOV-77 11:55:59 

SUBFODTTNE flK (I,XP 1 , AKZ) 

C 

C COMPUTED MODIFIED BESSEL FSS OF FRACTIONAL ORDER 1/3 

C AND 2/3. TABLE OF K(1/3) AND K (2/3) FROM MATH HANDBOOK 

C VALUES OF AK1 ARE FOR MODIFIED BESSEL FNS: (2 /PI) ♦K (1/3) 

C FOR VALUES OP X FROM .1 TO 5.1 IN .1 STEPS 

C VALUES OF AK2 ARE FOR MODIFIED BESSEL FNS: (2/PI) *K (2/3) 

C FOR VALUES OP X AS ABOVE 

C USES SUBROUTINE PARAB TO PIT 3 DATA PIS TC INTERPOLATE 

C BETWEEN STEP OF . 1 

C 

COMMON/AA/AK1 (51) ,AK2(51) 

COMMON/BB/Xn) ,AKI(3) ,XPL 


XPL = XP1 

CHECK IF WITHIN RANGE OF .1 TO 5.1 

IF (XPL. GT.5 . . OR. XPL. LT. . 1) GO TO 10 
IXP1 TFTX ( 1 0. + XP 1) 

PI = 3.14159265 
IXMTD - Ti’IXCXPL/. 1 + .5) 

CHECK IF TN'T’EHPOLATTON NECESSARY 

IF ( ( 10. *yP1) . EO. TXP1 .AND .T .EQ. 1) AKZ= A K1 (I X MID) ♦PT/2. 
IF ( ( 10. *XP1) .EQ. IXP 1 . AND.I .EQ. 2) AKZ = A K2 (T XMT D) * PI/2. 
IF ((10.^XP1) .E0.IXP1) GO TO 30 
C 

T XLOW = T XMID - 1 
TXHIG = TXMin ♦ 1 
C 

C CHECK LOWER BOUND OF ARRAY 

C 

IF (IXMTD. EQ. 1) IXHTG = 3 
IF (ITMTD.EO. 1) TXLOW = 1 
IF (IXMID.EQ.1) IXMTD = 2 
AKT (1) = AK2 (TXLOW) 

RKT(2) = AK2( IXMTD) 

RKI(3) = AK2 (TXHIG) 

IF (I.EQ.1) AKI(1) = AKI(TXIOW) 

IF (I.EO. 1) AKT (2) = AKI(IXMID) 

IT? (I.EQ.1) AKI(3) = AK1 (TXHIG) 

X (1) = . 1l*TXLOW 

X (2) = . 1 +IXMTD 
X (31 = . 11*TXHTG 
CALL PARAB (AKZ) 

AKZ = AKZ+PT/2. 

G O TO 30 
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c 


1{? 

IF (XPL.r.T. 

.1) 

TYPE 40,XPL 




TF (XT»L.r;T. 


TYPE 20,XPL 



20 

F0B?1AT(» X 

GT 

5.0, CANNOT COMPOTE, 

X 

= *,<3) 

40 

FORFRT{* X 

IT 

0.1, CANNOT COMPUTE, 

X 

= *,G) 

30 

PETTIRN 






END 







Subroutine AKDAT (for use with AK) 
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n n o n n 


USED BY SUBRQtTTiKE JSK, ATMOSPHERIC TURBULENCE 
VALUES OF AKl ARE FOR MODIFIED BESSEL FNSs (2/PI )*K (1/3 ) 

FOR VALUES OF X FROM .1 TO 5.1 IN .1 STEPS 
VALUES OF AK2 ARE FOR MODIFIED BESSEL FNS: '(2/PI)*K(2/3) 

FOR VALUES AS ABOVE 
BLOCK DATA 
C 

C0MM0N/AA/AK1(51),AK2(51) 

C 

DATA AKl/1. 8461,1. 26P1,. 9607,. 7676,. 6296/. 5253,. .4434,- 

1 .3776,. 3238,. 27911,. 241 67,. 21001,. 18306,. 160,. 14016,. 123B2, 

2 .10818,. 09527,. 08402,. 07419,. 06559,. 05805,. 05142,. 04559, 

3 -e4045,.03592,.0319?,. 02838,. 025249,. 022476,. 020018,. 017838, 

4 .01 5902,. 014183,. 012654,. 011 295,. 01 0085,. 009008,. 00804S, 

5 .00*T19 4,. 0 06 432,. 005752,. 005145,. 004604,. 004120,. 003688, 

6 .00 3303,. 0029578,. 0026495,. 0023 73 9,. 0021273/ 

C 

DATA AK2/3. 026,1. 7837,1. 271 e'V. 9681,. 7678,. 6257,. 5187,. 4354, 

1 .3688,. 3148,. 27024,. 2331 2,. 20191,. 17547,. 15294,. 13364,, 11704, 

2 .10270,. 09027,. 07947,. 07007,. 061 85,. 05466,. 04835,. 04282,. 03795, 

3 .03366,.029677,. 02654,, 023591,. 020982,. 018672,.01 6625, .01 481, 

4 .01 32,. 01177,. 010499,. 009369,. 008362,. 007468,. 006671,. 005961, 

5 .005329,. 004764,. 004261,. 00381 2,. 003411,. 003053,. 0027332, 

6 .0024474, .002192/ 

C 

END 
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Subroutine AKDAT (for use with AKl) 
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oooor»orio 


I llllllll 


II II III I ■III! 


c <RriSHc:R>AKOAT,F4|2 l«f^oV.77 10|00|30 EDIT BY RFISHER 
BLOCK DATA 

USED BY subroutine AK, ATMOSPHERIC TURBULENCE 
VALUES OF AKt ARE FOR MODIFIED BESSEL FNS| ( 2/Pl)#KC 1/3) 
FOR VALUES OF X FROM ,1 TO 10,0 IN ,1 STEPS 
VALUES OF iK2 ARE FOR MODIFIED BESSEL FNSI (2/pn*K(2/3) 
FOR VALUES OF X AS ABOVE 


COMMON/AA/AKlCl00)i AK2(100) 

DATA AKl/T. 0461, 1, 2601., 9607,. 7676 ».62R6,. 5253,, 4434i 

1 i 37 76,, 3230,, 279 11, '.24 167,1 2 1001,, 18306,. 160.. 1401 6,. 12302# 

2 .10818, .09627, ,08402. ^,0741 9, .06559, .05805, .05142, .04559, 

3 104045, .03592, .03192, .028 38. >25249, .022476, ',02001 8, ’.017838, 

4 ‘0i 5902,^01 41 03, 1012654, ' 01 1295, .010085,1009008,1008049, 

5 .007194, .006432,1005752, .0051 45 , .004604, .004120, .003688, 

6 ^003303, .0029578, .0026495,10023739, ,0021 273, 10019067, .0017093, 

7 .0015325, ,0013743, ,0012326. .001 1057, .000992, .0008901 , 
e .0007988, ,0007169, ,0006469, ,0005778, .0005188, .0004658, 

9 10004184, ,0003758,1000 3375, ji 0003032, .00027245,100024481, 

A .00022, .00019772, ,00017779, .00015974, ,0001436, .0001291, 

B .0001 1608, 100010438. 100009386, 1 8441 E«04,l7592E^04,l6828E»04, 

C 16141E*4, ,5525E»4, ,4971E*4, .4472E-4, ,4042E*4, ,362lE»4, 

D ^3258E*4, .29322E-4, 126389E-4, l23751E*4, ,2l 377E.4, . 19242E«4, 

E .17321E*4, ,15593E*4. .14038E»4, .126 39E«p4, ,11379E*4/ 

DATA AK2/31026, 1.7837,1 .2716, .9681 • .7678^ .6257, ,5187, ,4354# 

1 .3688, .3148, .27024, .23312, . 201 9 1 ,, 1 7547 , ,1 5294, , 1 3364 ,. 1 1 704# 

2 I1027, .09027, .07947. .07007, .06185, .05466, .04835, >4282, ,03795, 

3 ^03366, .029877, .02654, >23591 , >20982, ,01 8672, 1 016625, ,01 481 , 

4 .0132, .01177, .010499, .009369, .008362, ,007468, .006671, ,005961# 

5 .005 329, .004764, >04261, >038 12, >034 11, >0305 3, .0027 332# 

6 ,002 447 4# ,<^02192, ,0019637,10017594, .0015767 , >01 4 1 32, 

7 .0012669, ,001136, ,0010187, .0009137, .0008196, .0007354, ,0006599, 

8 >005922, ,0005315, .0004771 , .0004283, .0003846, .0003454, 

9 >003102, ,0002786, .00025026, .00022483 , .000202, >0018151 , 

A ,00016312, .0001466,100013176, .00011844, ,00010647, .00009572, 

B ,8607E*4, ,1739E*4, .6959E.4,.6259E»4, .5629E.4, .5063E.4, l4554E»4# 
C .4097E*4, ,3686E«4, .3316E-4, .29837E-4, ,26847E»4. ,24159E*4# 

D .2l74lE-i4,ll95666E*4, .176lE-4,ll585lE*4, ,14268E«4, .12843E-4# 

E 111562C-4/ 

END 
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Subroutine ANRPl 
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interpolation routine 


c 

c 

c 

c 

c 


10 

s 

20 

c 


SUBROUTINE ANTRP( JMAX, AKNWN, AKJ|NDX, AL# ALINT) 

DIMENSION AKJ( 0 /in,ALf 0 /in 
IF (NOX.EQIjMAX) go to 10 

ALINT ■ (ALCNDXfl)#f AKNWN*AKJ(NDX))*ALtNDX)#(AKNWN*AKJCNDX+in 
/f AKJ(NDX+l)*AKJfNDXl ) 

GO TO 20 
TYPE 5»JSIG 

FORMATC* JSIG 9 JMAx# INTERPOLATION OUT OF RANGE') 

RETURN 

END 
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Program ATUR4A 
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r> o o 


C 

U 

c 

c 

c 

c 

c 

c 

c 

c 


c 


PRDflRA?? ^?(IRB 4 . ATWOSPBERIC TaPBOLENCE TASK 
ITEM PARTS 1 , 1 . A, PHASE II OF ATWOSPHEStC TtlHBUtENCE 
MEAN VALOS SUBTRACTED PROW DATA BEFORE COWPUTING SPECTRDW 
SPECTHn’l CALCnLATIONS (AS IH PHASE I) 

REQUIRES SflBROaTXNES; 

CPFTl: TO PERFORM FFT 

STWR: TO INTEGRATE BY SIfiPSIONS RULE 
HPOES: HIGH PASS FILIBR 

READS NASA TA STORED IN DATA FILE TO BE NAMED 
PRODUCES DATA FILES: 

PHTLK: VALDES OF PSD PHI OF L'iK ) 

AUTOCORRELATION OF PSD 

COMMON/S S/W (? /65S 17) 

COMMOM/CC/A ( 3 ) ,B ( 3 ) ,C( 3 ) ,GR ( 2 , 10 ) ,F( 4 , 3 ) 

I'«PUT INITIAL PARAMETERS 


TYPE S3? 

S00 FOR«A'^{/1 X, »INPUr SPEED OF CRAFT (M/SEC) *,/$) 

ACCEPT 331 , V 
301 FORMA’T’(S) 

TYPE 301 

802 F0RMAT(/1X, ‘INPUT TOTAL NO. OF POINTS TO BE USED IN 2L M. • , 

1 • OF DATA’ ,/lX, ‘AND POWER OF TWO OF THAT NO.»,/$) 

ACCEPf* 333,'JPTS 
ACCEPT 303 , MP WPN 
303 EORMA'^(I3) 

T??E 702 

ACCEPT 32S , N3PTS, SR ATE 
825 FORNAT(>S) 

702 FORM AT (/I Y ,* INPUT NO. OF POINTS OF W(X) TO BE READ*,/1X, 

1 ’AND SAMPLINS RA^F OF DATA * , $) 

TYPE 304 

804 FORM AT (/1 X , ’T NPUT VALUE OF MPTS‘, 

1 /, • AND POWER OF TWO OF THAT NO.S/'S) 

A2CFPT 331,M?TS 
ACCFPT B33,MPWRW 

M?EEO = 'ilPTS-NOPTS 
NLAST = NPTS-1 

= SRATE^^NPTS 
TWOL = V^TIME 
PTS = FLOAT (NPTS) 

DBLX = TWOL/PTS 
FTM MZSRO^DELX 
FTDAT = 7ijoL-FTM 
DELK = 1 . /'‘’W3L 
FTM1 = IPTS^DELX 


122 



c 

c 

806 


807 


READ TN THE DATA W (X) AND CONVERT TO M/SEC 
TVPE 805 

FOHMA’^ (/I X, » TNPUr DATA FILE NAME THAT CONTAINS SAMPLES*, 
/1X,»OF W(X) AND NO. POINTS NXRAY’,/$) 

ACCEPT’ a07,FC.E 
ACCEPT 8:?5,NXRAY 
FORMAT (A5) 


CALL TFTLE (20, FLF) 

NX1 = NXRAY/4 
DO 550 I = 2I,NX1-1 

READ(20,551)W(I),W (T+NX1) ,W (I + 2*NX1) , W (T+3*NX1) 
W(I+NX1) = W(I+NX1) *. 3048 
H(I + 2*NX1) = W (H-2*NX1) 3048 
N(I+3*NX1> = W (T+3+NX1) ♦. 3048 

550 H (I) = N (I ) *. 3043 

551 FORMAT (4 (E15. 7) ) 

END FILE 20 

C 

C HISH PASS FILTER THF DATA 

C 

TYPE 8 

9 FORMA'T’f* TNP3T C8T-OFF FREQ , S A MPLING INTERVAL,* 

1 »NO. OF FILTER SECTIONS *, /$) 

ACCEPT’ 2,FC,TS,N5 
2 F0RMAT(30) 

FX = FC/V 

CALL HPDES (FC,TS, NS) 

DO 140 N=1,NS+1 

DD 140 M = 1 ,? 

140 F(N,M) =0.0 

DO 150 M=0,NXRAY“1 

F(1, 3) = W (M) 

DO 160 N=1,NS 

TEMP = A (N) F (N, 3) -2. (N, 2) +F (N, 1) ) 

160 F(N+1,3) = T’snp-B (N) *F (N^- 1, 2) -C (N) *F (N+ 1, 1 ) 

DO 170 N=1 ,NS+ 1 
DO 170 1 , 2 

170 F(N,MM) = F(N,MM+1) 

150 »(M) = F(NS<-1,3) 

C COMPUTE AND SUBTRACT OUT MEAN VALUE 

C COMPUTE THE SAMPLE VARIANCE 

C 

WBAR = 0.0 
VAR = 0.0 

DO 610 JJ = 0,NOPTS-1 
610 NBAR = WBAP + W (JJ) 

WBAR = WBAR/FLOAT (NOPTS) 

DO 600 I=0,NOPTS-1 
W(I) = W(T) ' WBAR 
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60fJ 


C 

C 

1111 

c 

c 


170 


C 

C 

c 

10 

c 

c 

512 

513 
C 

c 


11 

c 

c 


950 

1 

2 

3 

3 


VAR = VAR + M(I)*W(I) 

VSR = VAR/FL7 AT (»?OPTS| 

SaUARF W(I) 

DD 1111 I=0,MXSAY-1 
W (I) = (I) *W (T) 

"DEPUTE rNTEIPAL OF W(K)**2 (fSIMO TRAPIZOIDAL RULE 

WSUM = 0, 0 

DD 370 I=1,MDPTS-2 

wirjM = tfsnw + w(i)*w{i) 

= ffSQM + .5*W (0)*W (0) ♦.S+W (NOPTS-1)*W(NOPTS-1) 

W3UH = DFLX*WSU*1/FTDAT 

ADD 7FRD5 TO DATA 

DO 10 T=MOPT3 ,NLA5T 
W(D = 0. 0 

MAKE ARRAY COMPLEX 

DO 512 J=NPTS-1 ,0 ,-1 
W(2*J) = W (J) 

DO 513 J= 1 ,0* NPT3 -1 , 2 

W ( J ) =0.0 

COMPrr’T’B PRI L (K) 

CALL CFFT (MPWRNr'IPTS,5f , 1) 

NRALF = N?5TS/2 

NMTN1 = NHALF-1 

TMS = TWOL+TWOL/FTDAT 

DO 11 1 = 0, 2*^7LASr , 2 

3 (I + 1> = 0.0 

W(T) = 3(r)*TMS 

CONTINUE 

W(2*NPTS-1) = 0,0 

OUTPUT VALUES OF PHI OF L fK) TO DATA PILE (FIRST HALF ONLY) 

CALL OFILE (20,*FPSD2») 

WRI'T’F (20, 900) 

WRITE (20,950) FC,FK,?LS 

FORMAT (/I X ,* HIGH PASS FILTERED D AT A » , /1 X, • CUT -OFF FREO 
* (K =*,G, ») • ,//1X, 

'FILTERED VERSION SQUARED BEFORE TR ANSFORM ING* ,/1 X, 

'POWER SPECTRUM OF PHI OF L(K)',/1X, 

'DATA TASTEN FROM FILE * , A 5) 

WRITF (2 0, 9 06) NPT5 , T WOL, M PTS , FT Ml 
WPTTE(20, 907 ) mzFRO 
WRITE (2 0, 91 0) WEAR, VAR 
WRITE ( 20, 9 51) WSUM 
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n Q 


951 


FDR^IA^ (/I X , »<W OF L(X)**2> = *,F12,4) 

WRITF (?:?,952) 

952 FDRMAT(//1 X,» PRISTOtIT OF THE VALUES OF THE POWER SPECTRUH*^ 

1 /1X,5X,»K» ,1?fX,»PS VALUE*, 8X,»K CONTD * , 4X, • PS VALUE CONTD*,/) 

HHALF = MPTS/4 
M4 1 = HRALF-1 
DO 823 r = 

DEL = DELff + T 
XX = W(2*I) 

K = MHALF+T 
DEL2 = DSLK^K 
YY= tf(2*K> 

823 WRITE (20, 903) DEL, XX,DEL2, YY 

DEL3 = DELK+)IHALF 
ZZ = W(2YNHALF) 

WRITE(20, 908) DEL3,Z7 
END FILE 20 

PERFORM INTESRATTON CHECK 
TYPE 810 

810 FORMAT (/IX, *PERF3PM INTEGRATION CHECK (Y OR N) * , $) 

ACCEPT 807 ,CRK 

IF (CHK.EQ.*N») GO TO 23 
FDR = NPTS*DELK 

CALL 8IMP(0.0 ,EDP , DELK , N PTS , AM S) 

TYPE 811, AN9 

811 FORMAT (//I X,* TNTPGRAL OF PHI OF L (K) =*,E12.4) 

C 

C OBTAIN AUTOCORRELATION FUNCTrON 

C 

23 CALL CFET ( MPWPN,NPTS ,W , 2) 

C 

C TYPE OUT AOTOCOPPELATION TO DATA FILE 

C 

XAOFF = 13000. 

RFCON = PTS/TWOL 
DR0 = W (?) ♦RFCON 
MAOFF = 1 3000. /DEI.X 
C 

CALL OFILS (20,*AUTF2*) 

WRITE (20,900) 

WRITE (20, 1 9S0) FLP 

1950 PORMA^ (/1X ,* AUTOCORRELATION OF*, /IX, 

1 *HTGH PASS FILTERED AND SQUARED NON-HOHOGENEOUS SAMPLE*, /IX, 

2 ’DATA TAKEN FROM FILS * , A 5) 

WRITE (20, 906) NPT5 ,TWOL, MPTS , FTMl 
WRITE (20,907) MZERO 

WRITE(20, 9 10) WEAR, VAR 
WRITE (20,951) WSUM 
WRITE (20, 3 81) XAOFF, MAOPE 
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381 FDR«fiT (/15C, • TPUCATION POINT WAS*,G,» M STEPS* ,/1 X , 

1 'WHICH CONTAINS *,I7,» POINTS*) 

WRITE (2?, 1952) 

1952 FORMftT(//1X,*PPt»TOnT OF THE VALUES OF THE AUTOCORRELATION* , 
1 /I X,8X,*X* r12X,* PL * ,9X, *RL/P0*) 

DO 1823 I=0,MAOFF 
DEL = DELX*T 
XX = W(2*I)*RFCON 
yy = XX/DP0 

1823 WRITE (20,915) DEL, XX, yy 
915 FORMAT (IX, 3 (2X, G) ) 

ERD FILE 20 
C 


900 F0RMAT(//1X,* DATA FILE CREATED BY PROGRAM ATURB4*) 

903 FORMAT(1X,F10.6,3X,F12, 4, 3X,F10.6,3X, E12, 4) 

905 FORMAT(//1X,»PL(0) = *,F12.4) 

906 FORMAT (//I X, 16 , » DATA POINTS WERE USED IN 2L = *,F15*4, 

1 ♦ METER* , /1 X, 15,* DATA POINTS WERE USED IN M = *,F16.4, 

1 * METER*» 

907 FORMAT (//I X, 16 , * ZEROS WERE ADDED TO DATA*) 

909 FORM AT (29X , ^1 0,4, 3X, B12 . 4) 

910 FORMAT (//I X, » MEAN VALUE OF W(X) = »,E15,5,» M/SEC*, /IX, 

1 *MEAN SO. VALUE = »,E15.5,* (M/SEC)**2*) 

C 

c 

4999 END 


126 



Program ATURB2 
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c <RFI5HER>ATURB7,F4|5 1 »Nov»77 10|14i27 EDIT BY RFISHER 

C program ATP2. ATMOSPHERIC TURBULENCE TASK 

C ITEM Ir PAF*TS l#l.A. PHASE IT OF ATMOSPHERIC TURBULENCE 

C MEAN VALUE SUBTRACTED FROM DATA BEFORE COMPUTING SPECTRUM 

C spectrum CALCULATIOWS (AS IN PHASE I) 

c REQUIRES SUBROUTINES! 

C 

c CFFti to perform fft 

c SiMPi TO integrate BY SiHPSIOMS RULE 

C 

C READS NASA DATA STOrED IN DATA FILE TO BE NAMED 

c produces data FILESi 

C PHILKi values OF PSD PHI OF LCK) 

C AllTOl autocorrelation OF PSD 

C DSPS! smoothed POWER SPECTRUM 

c 

COMMON /SG/W( 0/655 37) 

C 

c INPUT initial parameters 

c 

TYPE 800 

800 FORMATC/IX. 'INPUT SPEED OF CRAFT (M/SEC)S/$I 

accept 801, V 
901 FORMAT(G) 

TYPE 802 

802 FORMATf /IX, 'INPUT TOTAL NO. OF POINTS TO BE USED IN 2L M,', 

1 ' OF DATA', /IX# 'AND POWER OF TWO OF THAT NO.',/g) 

accept 803,NPTS 
accept 803,MPWPN 

803 FOrMAT(I6) 
type 702 

accept 825,N0PTS#SRATE 
825 F0RMAT(2G) 

702 FORMATC/IX, 'INPUT Nb‘. OF POINTS OF W(X) TO BE READ'#/1X# 

1 'AND sampling rate OF DATA 
type 904 

804 F0RMAT(/1X. 'INPUT VALUE OF MPTS'^ 

1 /,' AND POWER OF TWO OF THAT NO,',/$) 

ACCEPT 803,MPTS 
ACCEPT 803,MPWRM 
C 

MEERO « NPTS*N0PTS 
NLAST m NPTS-1 

time s sratf^npts 

TWOL s V#TIME 
PTS a; FLOAT(NPTS) 

DELX X TWOL/PTS 
FTM « MeEPO#DELX 
FTOAT * TWOL-FTM 
DELK m l',/twOL 
FTMl ■ MPTS#DELX 
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c 

C READ IN THB DATA Wfx) ANO CONVERT TO M/SEC 

C 

TYPE 806 

806 F0RMAT(/tX, 'INPUT OaTA FILE NAME THAT CONTAINS SAMPLES*# 

1 /1X#*0F W(X) AND NO'. POINTS NXRAY*./$) 

accept 807. FLE 
accept 925.NXRAY 

807 FORMATrAS) 

CALL lFlLEf20,FLE) 

NXl » NxRA^/4 
00 550 I»0.NXi«l 

READ f 20# 551) W( I) ,WCI4>5700) ,W( 1 + 11400) ,W( If 17100) 
WCI+5700) m W(I+5700)#'.3048 
W(I+11400) 9 WCI+11400)#' 3048 
W(I + 17100) a W(I+17 i00)#_3048 

550 W(I) a W(I)#,3048 

551 F0RMATC4(E15.7)) 

END FILE 20 

C 

C COMPUTE AND SUBTRACT OUT MEAN VALUE 

C COMPUTE the sample VARIANCE 

c 

WBAR r 0,0 
VAR a 0,0 

DO 610 JJ a 0,NOPTS.1 
610 WBAR a WBAr ♦ W(JJ) 

WBAR a WBAR/FLOAT(NoPTS) 

DO 600 Ia0,NOPTS»l 
W(I) a W(l) • WBAR 
600 VAR a VAR + W(I)*WCn 

VAR a VAR/FLOATCNOPTS) 

C 

C COMPUTE integral OF W(K)##2 USING TRAPIZOIDAL RULE 

C 

WSUM a 0,0 
DO 370 Ial.N0PTS*2 
370 WSUM a WSUM+W(I)#W( I) 

WSUM a WSUM + ,5*W(0)#Wt0)+,5#W(NOPTS»l )#W(N0PTS»1) 

WSUM a DELX#WSUM/FTDAT 
C 

C ADD ZEROS TO DATA 

C 

DO 10 TaNOPTS#NLAST 
10 W(I) a 0.0 

C 

c make array complex 

c 

DO 512 JaNpTS-l#0#«l 
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512 W(2»J) F WfJ) 

DO 513 J»l,2#NPTS*l,2 

513 W(J) m 0.0 
C 

C COMPUTE PHI t(K) 

C 

CALL CEFT(MpWRN,NPTs#Wf 

NHALF » NPtS/2 
NMINI s NHALP*1 
TMS a TWOL#TWOL/FTDaT 
DO 11 I«0,2#NLA5T,2 
w(i+i) « 0 I 0 
W(I) s W(Il#TMS 
11 CONTINUE 

W(2*NPTS»n * 0.0 
C 

C OUTPUT VALUES OF PHl OF LfK) TO DATA FILE (FIRST HALF ONLY) 

C 

CALL OFILE (20,'PHlLKn 
WRTTE(20,900) 

WRITE(20.950)FLE 

950 F0RMAT(/IX. 'POWER SPECTRUM OF PHI OF L(K)'./IX. 

1 'DATA taken from FIlE '.A51 

WRITEC20,90S5NPTSf T wOL#MPTS.FTM 1 
WRITE(20,907)MEERO 
WRTTE(20f 910) WRAP, VAR 
WRITEc20,9inWSUM 

951 FORMATC/IX, *<W OF L(X)##2> « '*Fl2'.4) 

WPTTE(20,952) 

952 FORMATC//1X, 'PRINTOUT OF THE VALUES OF THE POWER SPECTRUM'# 

1 /lX#5Xf 'K'.10X#'PS VALUE', 8X,'K CONTD ' , 4X, 'PS VALUE CONTD',/) 
MHALF a NPtS/4 
M41 a MhaLF. 1 
DO 823 Ia0.M4l 
DEL a DELK*I 
XX c W(2*X) 

K a MHALFfI 
DEL2 a DELK#K 
YYa W(2#K) 

823 WR1TE(20#903)OEL,XX.DEL2.YY 

DEL3 a 0ELK#NHALF 
ZZ a W(2#NHALF) 

WRITE(20,908)DEL3#ZZ 
END FILE 20 
C 

c pepform integration check 

c 

type 810 
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810 F0PMAT(/1X, 'PERFORM INTEGRATION CHECK (Y OR N) ',$5 

accept 807. CHK 
IF CCHK.EO'.'N') go to 23 
EDR « NPTS#0ELK 

CALL SIMPC0,0#EDR,DELK,NPTS, ANS) 

TYPE BH.ANS , 

611 FORMATC//1X, 'INTEGRAL OF pHI OF L (K) >|'#E12.41 

C 

C OBTAIN AUTOCORRELATION FUNCTION 

TYPE 4444#W(0)#Wf n,W(2).Wf 3) 

TYPE 4444fWC4),W(5>,W(6).Wf7) 

TYPE 4444# W(8) ,W( 101 
type 4444.WCNPTS) 

TYPE 4444fWCNPTS-2),W(NPTS4-2) 

TYPE 4444,W(2#NLAST^21 ,wr2#NLAST.41 ,W(2#NLAST*6) 

4444 F0RMAT(4G) 

C 

23 CALL CFFT(MPWRN,NPTS#W,21 

C 

C TYPE OUT autocorrelation tO DATA FILE 

C 

XAOFF * 13000, 

RFCON ■ PTS/TWOL 
DR0 m W(0)*RFCON 
MAOFF ■ 13000, /DELX 

c 

CALL OFILE c20#'AUTb') 

WRITE! 20,900) 

WPITE(20, 1950)FLE 

1950 F0rMAT(/1X. 'AUTOCORRELATION OF STATIONARY SAMPLE', /IX# 

1 'DATA TAKEN FROM FILE ',A5) 

WRITE (20, 906 )NPTS,TwOL,MptS,FTM1 

wrITE(20,907)MZERO 

WRITE(20,910.)WBAR,VAR 

WRITE(20,9snwSUM 

WRITE (20, 341) XAOFF, MAOFF 

381 F0RMAT(/1X.' TRUCATTON POINT WAS'#G,' METERS', /IX, 

1 'WHICH CONTAINS ',17#' POINTS') 

WRITE(20,H52) 

1952 FORMATC//1X# 'PRINTOUT OF THE VALUES OF THE AUTOCORRELATION'# 
1 /1X#8X, 'X',12X,' rL ',9X# 'RL>R0') 

DO 1823 I»0, MAOFF 
DEL m DELXpI 
XX « W(2»I)#RFCON 
YY m XX/DR0 

1823 WRITE(20,915)DEL,XX,YY 
915 F0RMAT(1X#3(2X»G)) 

END FILE 20 
C 

C COMPUTE WINDOW FN, AND RL(E) /( 1 «/E//(2L»M) ) 
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n o ri non 


C 


DR0 m W(0)/OELX 

PI a 3.141597654 

FTMJ, m MPTS#DELX 

DO 13 Js0,MPTS 

JVRG m DELX«J 

CC » PI#AHG/FTM1 

DD * r.-APG/FTMl 

EE * ABSCSTNtCCn 

WINDO « EE/pI+DD#COs(CCl 

DVSOP s I.-ARG/ETDAt 

13 W(?#J) 3 W('2»J)#WINd0/(DELX#DvS0R) 

M2PWR « MPWRMfl 

M2PTS s 2#MPTS 

ET?M s 2.#FTMI 
MMTN! b MPtS-l 
DO 14 vJKbI,MMINi 
KK 3 M2PTS*JK 

14 W(2*KK) « W(2*JK) 

DO 521 K3l,2^^M2PTS•l,2 
521 W(K) 3 0.0 

compute smoothed power spectrum 
CALU CEFT(M2PWR,M2PtS,W,21 

PRINT data file 'DSPS' # FIRST HALF OF DATA POINTS 

CALL OFILEf20# 'DSPSn 
WRITE(20,9P0) 

WRTTE(?0,90l)FLE 

WRITE (20, 906 )NPTS#TwOL,MptS,FTM 1 
WRITF(20,910)WBAR, VAR 
WRITE(20,95nwSUM 
WR1TF(20,907)MZERO 
WRITE(20,905)DR0 
WPITEf 20,902) 
mhalf • mpts/2 
M4l s MHALF-.1 
DELK ■ 1./FT2M 
no 56 Ib0,M41 
DEL B DELK#I 
XX » WC2#Ii#FT 2M 
K 8 MHALF+I 
DEL2 * DELK#K 
YY a W(2 #Ki#FT2M 
56 WRITE(20,903)DEL,XX,DEL2. YY 

DEL3 a DELK»MPTS 
ZZ a WC2#MptS)#FT 2M 
WRiTEf 20,900)OEL3,ZZ 
END FILE 20 
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900 FORHATC//iX, ^DATA FILE CREATED BY PROGRAM ATURB2'} 

90! F0RMAT(//1X, 'SMOOTHED POWER SPECTRUM PHI OF P(K)', 

1 /IX# 'DATA taken FROM DATA FILE '^AS) 

902 FORMATC//1X# 'PRINTOUT OF VALUES OF THE SMOOTHED', 

J ' POWER 5PECTRUM*,/5X,'K'.10X,'SPS VALUE', 8X#'K CONtD', 

2 4x#'sps value CONTO»,/J 

903 FOPMATf 1X|F10,6#3X#E12.4.3X,F10,6# 3X#E12,45 

905 FORMATC//1X# 'RL(0) s '#E12'.4) 

906 F0RMAT(//JX,I6# ' data POINTS WERE USED IN 2L ■ ',F!5,4# 
1 ' METER', /1X#15# ' Data points were used in M « '#F16,4# 

1 ' METER') 

907 F0RMAT(//1X,I6# ' EErOS WERE ADDED TO DATA') 

90S FORMaT(29X,F10.4,3X,E1?',4) 

910 F0RMAT(//IX, 'MEAN VALUE OF W(X) m ',E15,5,' M/sEC'#/lX# 

I 'MEAN 50, VALUE » ',E!5,5,' CM/SFC)##2') 

C 

C 

4999 end 
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Program ATURB3 
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C program ATURB2. ATMOSPHERIC TTjRBUT^ENCC TASK 

C ITEM 2 , parts 1,1. a1 phase IT OF ATMOSPHERIC TURBULENCE 

C mean VALUE subtracted FROM DATA BEFORE COMPUTING SPECTRUM 

C spectrum calculations (AS IN PHASE I) 

C 

C requires SUBROUTINES! 

c 

C CFii‘Tl TO perform fFT 

C SIMP! TO integrate BY SIMPSIONS RULE 

C 

C READS NASA DATA STOrED IN DATA FILE TO BE NAMED 

C PRODUCES data FlLESi 

C PHTLKi values of PSD PHI OF L(K) 

C AUTO! autocorrelation of PSD 

C DSPS! smoothed POWER SPECTRUM 

c 

COMMON/SG/W( 0/65537^ 

C 

C INPUT INITIAL parameters 

C 

type R00 

800 FORMat(/1X. »INPUT SPEED OF CRAFT (M/SEC)', /8) 

ACCEPT 801, V 

801 FORMATfG) 

type 802 

802 FORMATC/IX, 'INPUT TOTAL NO'. OF POINTS TO BE USED IN 2L m;», 
I 'OF DATA'. /IX, 'AND POWER OF TWO OF THAT NO.'./t) 

accept 803.NPTS 
accept B03.MPWRN 

803 F0RMAT(I6) 
type 702 

ACCEPT 825,N0PTS,SRATE 
825 FORMATC2G) 

702 F0RMAT(/1X. 'INPUT No. OF POINTS OF W(X) TO BE READ', /IX, 

1 'AND sampling RATE OF DATA ',$1 
type 804 

804 F0RMAT(/1X, 'INPUT VALUE OF MPTS*, 

1 /,' AND POWER OF TWO OF THAT NO.',/$) 

ACCEPT 803.MPTS 
accept 803.MPWRM 
C 

MZERO « NPTS-NOPTS 
NLAST • NPtS*l 
time m SRATEpNPTS 
TWOL m V#TTME 
PTS « FLOAT(NPTS) 

DELX ■ TWOL/PTS 
FTM ■ MZERbpDELX 

FTDAT • twol-ftm 
OELK ■ l./tWOL 
FTMl V MPTS#DELX 
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c 

C READ IN THE DATA W(X) AND CONVERT TO M/SEC 

C 

TYPE 806 

806 FORMATC/IX, ^INPUT DATA FII,E NAME THAT CONTAINS SAMPLES'# 
1 /IX# 'OF W(X) AND NO'. POINTS NXRAY'./S) 

ACCEPT 807, FLE 
accept 825.NXRAY 

807 F0PMAT(A5) 

CALL lFlLEf20#FLE) 

NXl » NXPAf/4 
DO 5S0 I»0,NXlwl 

READC20#55l)W(T) # WCI+NXn , W(T+2#NX1 ) r W(I+3#Nxn 
WCI + Nxl) *e Wf I + NXl^ *‘,304fl 
W(X'f2#Nxn a Wdt2#NXn#.3048 
W(I + 3#NX1) a Wf I + 3*NXn*.3048 

550 wen a wen#. 3048 

551 F0RMATC4(E15,7)) 

END FILE 20 

C 

c compute and SUBTRACT OUT MEAN VALUE 

c compute the sample variance 

c 

WEAR a 0.0 
VAR a 0.0 

DO 610 JJ a 0#NOPTS«1 
610 WBAR a WRAP ♦ W(JJ) 

WBAR a WBAR/FLOATCNOPTS) 

DO 600 Ia0,NOPTS»l 
W(I) a Wfl^ • WBAR 
600 VAR a VAR ♦ W(I)#W(n 

VAR a VAR/FLOATCNOPTSI 
C 

c COMPUTE integral OF W(K)##2 USING TRAPIZOIDAL RULE 

C 

WSUM a 0.0 

no 370 Ial,N0PTS»2 
370 WSUM a WSUM+W( I)#WCI) 

WSUM « WSUM + ,5#W(0l*W(0)+.5*W(NOPTS«l)#WtNOPTS»n 
WSUM a DELX#WSUM/FTDAT 
C 

C ADD ZEROS TO DATA 

C 

DO 10 IaNOpTS#NLAST 
10 W(T) a 0,0 

C 

c make ARRAY COMPLEX 

C 

DO 512 J«Npt5-1#0#*1 
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5t2 WC2*J) ■ WfJ) 

DO 513 J«1,2#NPTS»1 *2 
513 WCJ) m 0,0 

C 

C compute PHI L(K) 

C 

CALL CFFTCMPWRN^NPTStW, n 

NHALF » NPtS/2 
NMINI m NHALFi»l 
TMS 9t TW0L#TW0L/FTDAT 
DO 11 I«0,2#NLAST,2 
WCI+l) « 0.0 
W(I) 9 WCX)#TM5 
11 CONTINUE 

W(2#NPTS«11 • 0,0 

C 

C OUTPUT VALUES OF PHl OF LfK) TO DATA FILE (FIRST HALF ONLY! 

C 

CALL OFILE (20,'PHILK') 

WPITE(20,900) 

WRITE(20,950IFLE 

950 F0RMat(/1X, 'POWER SPECTRUM OF PHI OF L(K5',/1X. 

1 'DATA TAKEN FROM FILE ',A5) 

WRlTE(20,906)NPTS#TwOLf MPTS,FTM1 
WRITE(20,907)MEERO 
WPTTE(20,910)WBAR,VAR 
WRTTE(20,9inwSUM 

951 F0RMAT(/1X, '<W OF L'(X1#*2> ■ ',Fl2,41 

WPTTE(20,952) 

952 F0RMAT(//1X, 'PRINTOUT OF THE VALUES OF THE POWER SPECTRUM', 

1 /1X,5X# 'K'. 10X, 'PS VALUE', 8X,'K COMtD ' , 4X . 'PS VALUE CONTO',/) 

MHALF s NPtS/ 4 
M41 ■ MHALF-1 
DO 823 I»0,M41 
DEL • DELK#I 
XX ■ W(2*Il 
K s MHALF-H 
DEL2 B DELK#K 
yy* W(2#K) 

823 WRITE(20,903IDEL,XX,DEL2- YY 

DEL3 m DELK»NHALF 
ZZ B W(2«NhaLF) 

WRITE (20, 908 )DEL3,ZZ 
end file 20 
C 

c ABOVE WAS Descriptive data file now make data file that 

C IS read by OTHER PROGRAMS 

C 

CALL OFILE(21# 'PSD') 

DO 1010 JKb1,32 
K • 500#(JK*1) 



1010 WRITE;(21,9606) (W(2*n,lB0i^K,499+K) 

9606 FORMATC500G) 

WRTTEC 21, 9606 ) fwr2#n,la16(’00# 16384) 

END FILE 21 

c- 

C perform INtEGRATION CHECK 

C 

type 810 

810 FORMATC/IX. 'PERFORM INTEGRATION CHECK (Y OR N) ',$) 

accept 907, CHK 

IF (CHK.BQ^'Nn GO TO 23 
EDR a NpTS#DELK 

CALL STMP(0.0,EDR,DFLK,NptS, ANS) 
type ailfANS 

811 FORMATC//1X, 'INTEGRAL OF PHI OF L (K) «',E12,4) 

C 

c OBTAIN AUTOCORRELATION FUNCTION 

TYPE 4444#W(0),WCl),Wf2),Wf3) 
type 4444,W(4),W(5) ,WC6)*Wf7) 

TYPE 4444,W(8),W(10) 

TYPE 4444.WCNPTS) 

type 4444,W(NPT5-2),W(NPTS+2) 

TYPE 4444,Wf 2*NLAST*2) .Wf 2*NLAST.4),W(2#NUAST«6) 

4444 F0RMAT(4G) 

C 

23 CALL CFFT(MPWRN,MPTS# W,2) 

C 

C TYPE OUT autocorrelation TO DATA FILE 

C 

XAOFF « 13000, 

RFCON a PTS/TWOL 
DR0 a W(0)#RFCON 
MAOFF a 13000,/DELX 
C 

CALL OFILE (20, 'AUTO') 

WRTTE(20,900) 

WRITEC20, 1950)FLE 

1950 FOrMAT(/1X, 'AUTOCORRELATION OF STATIONARY SAMPLE', /IX, 

I 'DATA TAKEN FROM FILE ',A5) 

WRITE (20, 906 )NPTS,TwOL,MPTS,FTM1 
WRITE(20,907)MZEPO 
WRITE(20,910)W0AR, VAR 
WRITE(20,9S1)WSUM 
WRITE( 20, 381 ) XAOFF, MAOFF 

381 FORMATC/IX,' TPUCATION POINT WAS',G,' METERS', /IX, 

1 'WHICH contains ',17,' POINTS') 

WRITE(20, 1952) 

1952 F0RMAT(//1X, 'printout OF THE VALUES OF THE AUTOCORRELATION', 
1 /1X,8X,'X',12X,' rL ',9X, 'RL/R0') 

DO 1823 Ia0, MAOFF 
DEL a DELX4I 
XX * W(2*I)#RFCON 
YY a XX/DR0 
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1823 WRITE(20,9l5)DE:t*XX,YY 

915 format C1X,^C2X#G)) 

END FILE 2^ 

C 

C ABOVE WAS bES CRIPTIVE DATA FILE NOW MAKE DATA FILE 

C TO BE READ BY FOLLOWING PROGRAMS 

C 

c 

C*#*##D0NT forget +HESE NUMBERS MUST BE MULTIPLIED BY PFCON «»«»«» 
C 

TEND a MAOt^F/500 
CALL 0FILE('2l# ^RLNH?) 

DO 1011 JK * l,IENO 
K a 500#tJK»l) 

1011 WRITE(21,9606) CW(2#n , Ia0+K,499+K) 

KEND a 500«(IEND»n 
WRiTEf 21 ,9S06) CW(2#I), IaKENO,MAOFn 
C 

c compute window FN, and RLfZ)/(l«/Z//(2L»M>) 

C 

DR0 a W(0)/DELX 
PI « 3.141192654 
FTMl a MPTS#DELX 
DO 13 Ja0,MRTS 
ARG a DELXvJ 
CC e Pl#ARO/FTMl 
DD « r.-ARG/FlMl 
EE « ABSCSINCCO) 

WINDO a EE/Pl+OD#COs(CC) 

DVSOr a 1 ,-ARG/FTDAt 

13 W(2*J) a Wf 2*J)#WINnO/(DELX#OvSOR) 

M2PWR a MPWRMfl 

M2PTS a 2#MPTS 
FT2M X 2.#FtM 1 
MMI-Ni a MPtS* 1 
DO 14 JKal.MMINl 
KK a M2PTS»JK 

14 W(2#KK) a WC2#JK) 

DO 521 Kal.2*M2PT5*l,2 
521 WCK) a 0.0 

C 

C COMPUTE SMOOTHED POwER SPECTRUM 

C 

CALL CFFT(M2PWR,M2PTS,W,25 

C 

C print DATA FILE •DSpS' , FIRST HALF OF DATA POINTS 
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Program ATURB4 
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o n o n n o p ra r» o r» o on o ra n o 


program ATURB 4 . ATMOSPHEpTC TURBULENCE TASK 
ITEM 3 # parts 1 # 1 ,A'. phase II OF ATMOSPHERIC TURBULENCE 
mean VALuK subtracted From data before computing spectrum 
spectrum calculations fAS IN PHASE I) 

requires SUBpOUTINEsi 

CFFTl TO perform FFT 

SiMPi TO INTEGRATE BY SIMPSIONS RULE 
HPOES? HIGH PASS FILTER 

READS NASA DATA STOpED IN DATA FILE TO BE NAMED 

produces Data ftlesi 

PHILKI VALUES OF PSD pHI OF L(K) 

AUtOi autocorrelation of PSD 

COMMON /SG/WC 0 / 655 37 ) 

rOMMON/CC/A( 3 ),Bf 3 ),Cf 3 ).GR( 2 , 10 ),F( 4 , 3 ) 

INPUT INITIAL PARAMETERS 
TYPE 800 

B 00 FORMATC/IX, ^INPUT SPEED OF CRAFT (M/SEC) '*/$) 

accept 80 J,V 

801 FORMAT(G) 

TYPE 802 

802 FORMATC/lX, 'INPUT TOTAL No. OF POINTS TO BE USED IN 2 L M,', 

1 ' OF DATA'. /I X, 'AND POWER OF TWO OF THAT NO.',/$) 

accept 803.NPTS 
ACCEPT 803 .MPWRN 

803 F 0 RMATCI 6 ) 
type 702 

ACCEPT 025 , NOPTS, SPATE 
825 F 0 RMAT( 2 G) 

702 FORMATC/ 1 X, 'INPUT NO, OF POINTS OF W(X) TO BE READ'./lX# 

1 'and sampling pate of data '.S) 

type 804 

804 FORMATC/IX, 'INPUT VALuE OF MPTS', 

1 /,' AND PO 0 ER OF TWO OF THAT NO.^/S) 

accept 803 ,MPTS 
ACCEPT 803 ,MpWRM 
C 

MZERO 3 t NPTS»N 0 PTS 
NLAST « NPTS *1 
TIME W SRATE*NpTS 
TWOL • V#TIME 
PTS * FLOAT(NPTS) 

DELX » TWOl/PTS 
FTM m MeeRO»DELX 
FTDAT » twol-ftm 
DELK m j‘. /TWOL 
ftmi « MPTS*DELX 
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c 

C READ IN the data WCX) AND CONVERT TO M/SEC 

C 

type 806 

806 rORMAT(/lX, 'INPUT DATA FILE NAME THAT CONTAINS SAMPLES', 
1 /IX, 'OF W(t) and NO, points NXRAY'./S) 

ACCEPT 807, FLE 
ACCEPT 825,NXRAY 

807 FORMAT(A5) 

CALL IFlLEf20,FLE) 

NXl R NXRAY/4 
DO 550 I*0.Nxl«l 

REAO(20,55t )WCn ,>KI+NXn,WCI + 2*NXl)#W(I + 3»Nxn 
W(T + NX1) a Wf I + Nxn#.3048 
W(I + 2#Nxi) a W(If2#NXn#l3048 
W(I + 3#Nxi) a W(I>3#NXn#l3048 

550 W(I) a W(I1#',3048 

551 F0RMAT(4(E15'.7)) 

END file 20 

C 

C HIGH PASS FILTER THE DATA 

C 

type 8 

9 F0RMAT(' input cut*off FREO, sampling interval,' 

1 'NO, OF filter sections', si 
accept 2,FC,TS,NS 
2 FORMAT(3G) 

FK a FC/V 

CALL HPdES(FC#TS,Ns) 

DO 140 Nal.NSf! 
no 140 Mai, 2 
140 F(N,M) a 0‘.0 

DO 150 Ma0,NXRAY*l 
F(l,3) a WfMj 
DO 160 Nal.NS 

TEMP a A(N)*(F(N,3)»2,#FfN,2l+F(N,ll) 

160 FcNfl,3) a TEMp.B(N)#F(N^l ,2)*CCN)#FCN+1 , n 

DO 170 Nal.NSTl 
DO 170 MMal,2 

170 F(N,MM) a F(N,MMfl) 

150 W(M) a F(Ns^l»3) 

C 

C compute and SUBTRACT OUT MEAN VALUE 

C COMPUTE the sample VARIANCE 

C 

WBAR a 0.0 
VAR a 0,0 

DO 610 JJ a 0,NOPTS«t 
610 WBAR a WBAR ^ W(JJ) 

WBAR a WBAr/FLOAT(NOPTS) 

DO 600 Ia0,NOPTS»l 
W(T) a w(l) • WBAR 



600 VAR » VaR 4- W(I)»W(I) 

VAR » VAR/F‘LOATC^*0PTS) 

C 

C compute: integral of WfK)#*2 USING traptzoidal rule 

c 

WSUM « 0“.0 

no 370 l*l,NOPTS»2 
370 WSIjM B w5UMfWtI)#WCI) 

WSUM c WSUM ♦ , 5 *Wf 0 )»Wf 0 )^, 5 #W(NOPTS*l)#WfNOPTS»n 
WSUM « DELV#WSUM/FTDAT 

c 

c ADD ZEROS TO DATA 

C 

DO 10 laNOpTS# NLAST 
10 W(I) » 0'.0 

c- 

c make array complex 

c 

DO 512 J*NpTS**l#0fl 

512 W(2*J) a W(J) 

no 513 Jal,2*NPTS»l,2 

513 W(J) a 0> 

C 

c compute PHt LCK) 

c 

CALL CFFT(MPWRN,NPTS#W# n 

uhalf • NPTS/2 
NMINl m NHaLF*! 

TMS a TwOL#TWOL/FTDAT 
DO 11 Ia0,2#NliASTf 2 
Wfl+n a 0‘.0 
W(I) » WtH#TMS 

n continue 

W(2#NPTs»ll a 0,0 

c 

C output values of phi of LfK) TO data file fFiPST HALF ONLY) 

c 

CALL OFILE (20,^PHILK*5 

WRTTE(20,9001 

WRTTEt20,950lEC,FK,FLE 

950 F0RMAT(/1X,*HIGH PASS FILTERED DATA S /I X, •CUT-OFF FREQ a*,G, 

1 ^ (K 

2 •POWER SPECTRUM OF PHI OF L(KiS/lX, 

3 *DATA taken FROM FILE 
WRITE(20,9061NPT5» TW0L,MPTS,FTMI 
WRITEC20, 9071M7,erO 
WRITE(20,9!0) WBAR,VAR 

WRTTE(20,95nWSUM 

951 FORMATC/IX, OF L(X)##2> a •,F12.4) 

WRITE(20,952) 
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952 FOFMAT(//it# 'P rintout of thf values of the power spectrum^* 

\ /1X,5X, lOX, »PS VALUE*, RX.'K CONtD * . 4X , *P5 VALUE CONTD*,/5 

MHALF » NPtS/4 
H41 • MhaLF*! 

DO 823 I«0,M4l 
DEL m DELK#I 
XX m W(2*I) 

K ■ MHALF+I 
DEL2 * DELK#K 
yy« W(2#K) 

823 WRlTE(20,9£?3)OEL,XX,DEL2iyy 
OEL3 P DELK#NHaLF 
ZZ « W(2#NhALF) 

WPITE(20,908)DEL3,ZZ 

END file 20 

perform integration check 

TYPE 810 

10 FORMAT(/lX, 'PERFORM INTEGRATION CHECK (Y OR N) 

ACCEPT 907, CHK 
IF (CHK,EQ‘,»N*) go to 23 
EDR P NpTS#DELK 

CALL StMp(0,0, EDR, DELK,NPTS# ANSI 
TYPE 8U,ANS 

n FORMATC//1X, 'INTEGRAL OF PHI OF L (K) P*,E12.4) 

OBTAIN AUTOCORRELATION FUNCTION 
3 CALL CFFT(MPWRN,NPTS*W,2) 

type OUT autocorrelation to data file 

XAOFF p 13000, 

RFCON 9 PTS/TWOL 
DR0 P W(0)#RFCON 
MAOFF P 13000, /DELX 

c 

CALL OFILE (20,'AUTO*1 
WRITE(20,900) 

WRITEC20, 1950)FLE 

1950 FORMAT(/lX, 'AUTOCORRELATION OF'f/lX, 

1 'HIGH PASS filtered NqN. HOMOGENEOUS SAMPLE', /IX, 

2 'DATA taken from FILE ',A55 
WRITE ( 20, 906 iNpts»TWOl*MPtS#FTM1 
WR1TE(20,907)M3TErO 
WRITE(20,910)WBAR, VAR 

WPTTE(20,95n WSUM 

WRlTE(20,3«nXAOFF,MAOFF 

381 FORMATf/lX,' TRUCATIOn POINT WAS',G,' METERS'f/lX# 

1 'WHICH CONTAINS ',17*' POINTS') 

WRITE(20, 1952) 
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1952 rOPMAT(//lX # ^printout OF THE VALUES OF THE AUTOCORRELATION*, 
1 /1X,8X,*X*.12X,* RL *.9X,*RLyR0n 

DO 1823 I*0,MAOFF 
DEL m DELX#I 
XX « WC2#I)#RFC0N 
YY • XX/DB0 

1823 WRTTE(20,9i5)DEL,XX, YY 

915 FORMAT(lX»3(2X,Gl) 

END file 20 


900 FORMAT(//lX, *DATA FILE CREATED BY PROGRAM ATURB4*) 

903 FORMAT(lX,F10.6,3X,Et2«4,3X,F10,6,3x#El2«4) 

905 FORMAT(/yiX, »RLC0) * *fEl2’.4I 

90S F0RMATC//1X,T6, * DATA POINTS WERE UvSEO IN 2L s *,F15,4# 

I • meters, /IX.I5,* data points WERE USED IN M e *,F16,4, 

1 » meter*) 

907 F0RMAT(//1X#I6,* ZEROS WErE ADDED TO DATA*) 

908 FORMAT(29X,F10.4,3X,El2.4) 

910 F0RMATC//1X, *MEAN VALIJE Of W(X) a *#E15,5#* M/SEC*, /IX, 

1 *MEAN so'. ^ALUE a *,E15.S.* (M/SEC)**2*) 

c 

c 

4999 END 
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Subroutine BIN 



non 


SimpOUTlNK BIN(S) 

PROCfPAM bin, atmospheric TURBULENCE TASK 
item 4 

COMMON/AA/BlNlc50n ,BIN2 (501 ), total# NBIN,BTMW,NPTS 
dimension S(0/15O0«?>) 

TYPE 798 

798 F0RMAT(/iX,^ input BIN WIDTH*, /1X|» NO, OF BINS TOTAL*#/8) 

ACCEPT 744,BINW 
ACCEPT 744,NB1N 
744 rORMAT(G) 

NBTN2 * NBIW/2 
no 10 Ue) , NHTN 2 
BINI(J) s 0,0 

10 BIN2CJ) e 0,0 

TOTAL a 0,0 
TBTN a 0*,0 

DO 1 i Js 0,NpTS*l 

IF (5( J)',Lt.0.01 go TO 50 

IF CSCU)^EO.0,0) BINl(l) e BINICD^I. 

IF (S(J).eo,0,0) GO TO 11 
RSLTI a S(J)/BINW 
IP a IFIX(RSLTI) + I 
BTNl(IR) 8 BINI(IH) ♦ 1. 

GO TO n 

50 RSLT2 » ABSCSC Jll/BlNw 

TR s IFIX(RSLTJ) 4 1 
P1N2CIR) a BIN2(TR) 4 l’. 

1 1 continue 

TOTAL a 0,0 
DO 13 Js1,NRIN2 

13 total a total 4 BIN) ( J) 4 BIN2(J) 

type 802, total 

802 FORMATC/lX, 'TOTAL NO. OF pOiNTS USED FOR 1ST PASS a*,F8,2) 


C 

c 


return 

END 
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Subroutine BINSQ 


n n 


SUBROUTINE BlNgQCS) 

program BiMSOt ATMOSPHERIC TURBULENCE TASK 
item 4 


COMMON/BB/BIN3(700),TOT1,NSIN1,BINWI,NPTS1 
DIMENSION 5(0/15000) 

TYPE 798 

798 FORMAT(» INPUT BIN WIDTH NO* OF BINs*,/») 

ACCEPT 744,BlNwi 
accept 744,NbIN 1 
744 FORMATfG) 

DO 10 Jsl^NBlNl 

10 BIN3(J) 8 0.0 
TOTl « 0'.0 
TBIN 8 0.0 

DO 11 0,NpTSl*l 

IF (vSCJ)*,EO.0t0) 8IN3(n » BIN3(1)4-1. 

IF (S( J)lEo.0,0) GO TO 11 
RSliT a SfJ)/8lNWl 
IP » IFIX(RSLT) + 1 
BIN3CIR) a BJN3(IR) + 1 .0 

11 continue 

TOTl a 0',0 
00 U JaUNBlNl 

13 TOTl a TOTl + BTN3(J) 

type 802, TOTl 

802 FORMATC /IX, 'TOTAL NO. OF POINTS USED FOR 1ST PASS a'»F8.2) 


C 

C 


RETURN 

END 
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Subroutine CFFTl 


C SUBROUTINE C^FT, CALCULATES FFT OF ANY DATA ARRAY 

C number of OATA points Is power of 2(M) 

c 

c 

SUBROUTINE CEFT t MPOWR , NpTS. S. NWAY) 

DIMENSION 1^(2) 
complex S(0/5000),U,T,W1 

equivalence 

DO 301 I^Nrt5,1#*1 
NRAY u Xml 

301 SCI) 9 S(NrAY) 

D454 F0RMAT(lX,4CEl2p4,3xn 

0 TYPE 454,5f 1 )#S(2) 

D TYPE 454,Sr3)»S(4) 

D TYPE 454,S(f5)#SCB) 

D TYPE 454#5^NPTS/2+1> 

D TYPE 454,SfNPTS/2),S(NPTS>2+2l 

D TYPE 454,SfNPT5),SCNPTS*n ,S(NPTS-21 

D TYPE 454,SrNPTS/2*n#S(NPTS/2*2) 

0 type 454,Sf NPTS/2+3 i,S(NPTS>2+4) 

C 

c 

NV2 sNPTS/2 
NMl ■ NpTS.l 
J * 1 

DS ■ r«/FLOAT(NpTS) 

DO 7 I»l,NMl 

IF CT.GeWi go TO 5 
T ■ S(U) 

SCO) ■ sen 

sen « T 

5 K « NV2 

6 IF CF.GE.J5 GO TO 7 

J« J«K 

KwK /2 
GO TO 6 

7 J ■ J>K 

PI a 3'.141§92654 
DO 30 LalfMpOWR 
LE a2#*L 
LEI a LE/2 
FLEla FLOAtCLEl) 

U a (1 .,0,05 
PLaPI/FLEl 
PL s«pL 

BCD » COSfPL) 

B(2) a SiNifPL) 

DO 20 Jal^LEl 
DO 11 laJfNPTSfLE 
IP al+LEl 
TaSCiPlaU 
S(IP)aSCl)»T 
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U 5(1) ■S(I)4-T 

20 UslI«Wl 

30 continue 

NOP « NPT5«1 
IFfNWAY.EQ'.l) GO TO 200 
DO 40 I«0#NOP 
IDX ■ Itl 

XX7 9 DS#KEAL(S(IDX)) 

40 SCI) « CMPLXCXX2,0.0) 

GO TO 210 

200 DO 300 I«0.NOP 

IDXl c I+l 

XYZ » (CABs(S(IDXn5)#DS 
XX3 9 XY2*XYZ 

300 5(1) • CMPtXCXX3»0.0) 

210 continue 

D TYPE 454#S(0)#SCn 

D TYPE 454#S(2)»5(3) 

D TYPE 454,5(4) #5(5) 

D TYPE 454#5if6)#S(7) 

D TYPE 454#S(NPTS*4)#SCNPTS*3) 

D TYPE 454#SfNPTS»2),S(NPTS*l) 

RETURN 
END 


Subroutine CFFT 
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SUBROUTINE CFTT, CALCULATES EFT OF ANY DATA ARRAY 

NUMBER or Data points is power of 2(M) 


SUBROUTINE CFFT( MPOWP^ NPTS# S# NWAY) 

DIMENSION B(2) 

COMPLEX 5(0/32768), U,T,W1 
EQUIVALENCE (Wl|B) 

DO 301 I*NPTS,1,*1 
NRAY p I«1 
SCI) m S(NrAY) 

FORMAT(lX#4(E12,4,3xn 
TYPE 454,Sf 1),S(2) 
type 454,Sn),S(4) 

TYPE 454,Sf5),S(6) 

TYPE 454,SfNPTS/2+l) 

TYPE 454,S(NPTS/2),S(NPTS/2t2) 

TYPE 454,SfNPTS) ,S(NPTS«1 ) ,S(NPTS-2) 
type 454,SCNPTS/2»1),S(NPTS/2»2) 

TYPE 454,SfMPTS/2f3),S(NPTS/2+4) 


NV2 »NPTS/2 
NMl « NPTS*1 
J 9S ] 

DS ■ 1,/FL6aT(NPTS) 
DO 7 I«1,NM1 
IF (I'.GE.U) 60 TO 5 
T m S(J) 

S(J) m S(I) 
sei) • T 

5 K * NV2 

6 IF (K.GE.J) 60 TO 7 

Ja J «K 

KaK/2 
GO TO 6 

7 J a 

PI » 3,141$92654 
no 30 Lal,MpOWR 
LE p 2*«L 
LEt a LE/2 
FLEla FLOATCLEl) 

U a n'.,0,0) 
PLaPI/FLEl 
PL ■•PL 
BM) a COSrpL) 

B(2) » SiNfPL) 

DO 20 Jal,LEl 
DO 11 IaJ,NpTS»LE 
IP al+LEl 
TaS(IP)»U 
S(IP)»S(I)*T 
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11 SCI) apScn^T 

20 U«tl«Wl 

30 COMTINTIE 

NOP * NPTS.I 
ircNWAy.EQll) GO TO 200 
DO 40 T«0^NOP 
IDX ■ I+l 

XX2 9 DS#REAL(S(TDX)) 

40 S(T) s CMPLXCXX2,0,0) 

GO TO 210 

200 DO 300 XS0.NOP 

TDXl 9 I+l 

XYZ * CCABS(S(IDXl)))#PS 
XX3 9 XyZ#XYZ 

300 sen » CMPLX(XX3,0,0) 

210 CONTINUE 

D TYPE 454,Sf0),5a) 

D TYPE 454,Sf2)#S(3) 

0 type 454,Sf4)#S(5) 

D type 454,5r6),S(7) 

0 TYPE 454,5'fNPTS*4)#SCNPTS*3) 

D type 454,SCNPTS«2)#SCNPTS-n 

RETURN 
END 
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Subroutine DGELG 
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subroutine dgelg 

PURPOSE 

TO SOLVE A general SYSTEM OF SIMULTANEOUS LINEAR EQUATIONS. 
USAGE 

CALL DGELGCR.A.M.N.EPS.IER) 

DESCRIPTION OF PARAMETERS 

R • DOUBLE precision M BY N RIGHT HAND SIDE MATRIX 

(DESTROYED)' ON RETURN R CONTAINS THE SOLUTIONS 
OF the eouations', 

A - DOUBLE precision M BY M COEFFICIENT MATRIX 

(DESTROYED)'. 

M • the number of EQUATIONS IN THE SYSTEM^ 

N • the NUMBER OF RIGHT HAND SIDE VECTORS. 

EPS - SINGLE PRECISION TNRUT CONSTANT WHICH IS USED AS 
RELATIVE TOLERANCE FOR TEST ON LOSS OF 

significance! 

lER • resulting error PARAMETER CODED AS FOLLOWS 
IER«0 • NO error, 

IER«*1 • NO RESULT BECAUSE OF M LESS THAN I OR 
PIVOT element AT ANY ELIMINATION STEP 
EQUAL TO 0, 

lERaK • WARNING DuF TO POSSIBLE LOSS OF SIGNIFI^ 
CANCE INDICATED AT ELIMINATION STEP K+l, 
WHERE PIVOT ELEMENT WAS LESS THAN OR 
EQUAL TO THE INTERNAL TOLERANCE EPS TIMES 
ABSOLUTELY GREATEST ELEMENT OF MATRIX A. 

remarks 

INPUT MATRICES R AND A ARE ASSUMED TO BE STORED COLUMNWISE 
IN M#N rESP, M#M successive STORAGE LOCATIONS, ON RETURN 
SOLUTION MATRIX R IS STORED COLUMNWISE TOO*. 

THE procedure GIVES RESULTS IF T«E NUMBER OF EQUATIONS M IS 

Greater than 0 and pivot elements at all elimination steps 
are different From 0 ! however warning ierrk • if given • 
indicates possible loss of significance, in case of a well 

SCALED MATRIX A AND APPROPRIATE TOLERANCE EPS, lERaK MAY BE 
INTERPRETED THAT MATRIX A HAS THE RANK k', NO WARNING IS 
GIVEN IN CASE MbJ*. 

subroutines and FUNCTION SUBPROGRAMS REQUIRED 

none 

METHOD 

SOLUTidN IS done by means of GAUSS*ELIMINATI0N with 
complete pivoting*. 
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subroutine DGELGCRf AfMfN.EPS. lER) 


DIMENSION ACn^Rd) 

DOUBtE PRECISION R. A , pi V, TB, TOL, PIVI 
IF(M^23f23.1 

search for Greatest element in matrix a 

1 IERs0 
PIVib0,D0 

hm«m»m 

NMaN»H 
DO 3 LslfMM 
TB«DABS(ACD ^ 

IF(TB»PIV)3,3,2 
7 PIVbTB 
IpL 

3 continue 
T0l*EPS*PIV 

ACI) Is pivot element', piv contains the absolute value or A(I), 


start elimination loop 

LSTsl 

00 17 K»1,M 

TEST ON SINGULARITY 
IF(PIV)23,23,4 

4 IFCIER)7»5.7 

5 IFfPIV*TOM6*6#7 

6 IEr«K»1 

7 pivipr.DO/Atn 
J»(I-n/M 

J«J+l*K 

I+K IS R0w*1NDEX» J+K column-index OP PIVOT ELEMENT 

PIVOT ROW REDUCTION AND ROW INTERCHANGE IN RIGHT HAND SIDE R 
DO 0 L«K#NM,M 
LLaL'f I 

TB«PIVI#R(LLl 
R(LL)*R(L) 

8 RCDpTB 
C 

c IS elimination terminated 
IF fK-M)9f 18#18 
C 
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C COLUMN interchange IN MATRIX A 

9 LENDbL 5 T 4 M*K 

i0 ii«j#M 

DO It L»LST»LEND 
TB*A(t) 

LLbL^I I 
ACL)bA(LL) 
tl A(LL)»TB 

c 

c ROW interchange and pivot row reduction in matrix a 

12 DO 13 L»LST*MM,M 
LLsL<f X 

tb*pivi#acll^ 

ACLL)bA(L) 

13 ACL)«TB 

c 

c save column interchange information 

ACLST)rJ 

c 

c element reduction and next pivot SSiARCH 

PIV« 0 ,D 0 

LST»L 5 T +1 

DO 16 I 1 »LST,LEND 

piviB-A(in 

ISTqll^M 

JKJ+I 

DO 15 LbIST»MM»M 
LLbL* J 

A(L)»AfLUPIVH»A(LL) 

TBbDABSC A(L )1 
rECTB*PIV)l 5 , 15,14 

14 PIVbTB 
I*L 

15 CONTINUE 

DO 16 L»K,NM.M 
LLsL'f J 

16 R(LL)»R(LL)TPIVI#R(L) 

17 LSTbLST+M 
END OF elimination LOOP 


BACK substitution AND BACK INTERCHANGE 

18 lF(M*n23,22.i9 

19 ISTbMM^M 
LSTbM +1 

DO 21 Ip 2 ,M 
IX»LST*I 
ISTpIST-LST 
LpIST*M 
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L»A(L)+.5D0 
DO 2t JpIIfNM.M 
T8wR(J) 

LL«J 

DO 20 K«IST#MM#M 
LL«LL41 

20 TB«TB*A(K)#FfLL) 

RtJ)«P(K) 

21 RCK}«TB 

22 return 


error return 

23 lEp^.l 

return 

end 
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Subroutine FACl 



u u 


I 


SUBPOnTTNi; FAC1: COMPUTES K ! / ( ( K- K ) ! M ! ) 

SUBROUTTUF. FAC 1 {K , M , iK H) 

C 

IF (K.EQ.?,OR.K ,EQ. 1) GO TO 35 
F K -FICAT IK) 

FKC = FK 
DC 30 1=1, K-1 
AI =FLOAT(I) 

30 F K = FK* (FKC-AI ) 

35 IF (K ,FQ. 1.0P..K ,E0. 2) FK =1. 

IF {M .EC . 1.CF.M .EC. e) GO TO 45 

F M = FLC?T (K) 

FMC = FM 
DO 4? 1= 1 ,H-1 
AI = FLOAT(I) 

40 FM = FM* (i?MC-AI) 

45 IF |M . FQ . 1.0P . M .EO. 0 ) FM = 1. 

FMK = FLC M (K) -FLCAT (M) 

IF (FKM. FO, 1 . , OF, FK M. RC. 0.0) GO TO 55 
KM = K-M- 1 
FKMC = Fl<f' 

DO 50 1=1, KM 
AI = FLCAT IT) 

50 FKM = FKM=«' (FKMC-AI) 

55 IF (FKM, FC. 1. 0-. CR. FKM, FQ.0. 0 ) FKM=1 . 0 

AKM = FK/ |T?KM*F K) 

R FT TJ P M 
END 
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Program FINAL 
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PROGRAM final, ATMOSPHERIC TURBULENCE TASK 

ITEM 2(REVISI0N 2S3). PARTS 6,7,8/ AND 9*. PHASE II OF ATMOS- 
PHERIC TURBULENCE 

mean value subtracted From data before computing spectrum 
COMPONENT WITH LOW FREOUENCY CONTAMINATION 

REQUIRES SUBROUTINES GAM,pARl 6 INTERPOLATION 
ROUTINE! ANRPli aKI REQUIRES PAR, AKD AT, SIMQ, DGELGi 
USES subroutines TRaP(3S6) AND 5IMP2 FOR INTEGRATIONS 

ALSO USES Subroutine set and function dect included in program 

LMAX MAX ■ 10| NCOUNT MAX » J0f NXIH MAX « 290| M MAX « 4 

data files read by program AREi 

AUtOl autocorrelation *FrOM ATURB2 
DATA FILE CREATED By THIS PROGRAM AREl 

ITM2I VALUES OF CAP R txn, PART 9‘.K, ITEM 7 
ITM2L| values of SIGMA SQRD#L#PHI of KfKL), PART 9',L 

DOUBLE precision AMtRX , XC , DU, A , SUM, AM , S J , S2 • RI , C J, ALG2 
DOUBLE precision S3,S4 


COMMON/BB/XC3) ,AKIC3) ,XPL 
COMMON /TR5 /DELX 1 , NXIH 1 ,AI5I( 0/290) 
COMMON /TR2/DELX, NXIH, A I2Tf 0/290) 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


DU(7,7),RT(7).CJ(7) 

XLf0/H),SlG2f0/1 1),PH1 (0/100),PH2(0/100) 
PHl(0/n ,0/290), PHI l(0>lt ,0/290), AI( 0/6) 
AI3(0/4,0/11),AI4(0/4,0/1 l),AT5(0/in,AI6(0/ll) 
AI7 (0/9) ,aT 8( 0/4) ,Rl.( 0/290) 

SIG2JC0/1 l),XCf6), AC6,6)»AMTRXf 36) 

All (0/U ) , AI2(0/1 1 ), AI4TC0/4) / AI3TC0/4) 

NDO(0/1 1 ) , NuPR(0/U ) ,ELEFT(0/U ) 

EwAy( 0 /ii),Ai 5 x( 0 /in,Ar 6 x( 0 /ii) 


type 450 

450 FORMAT! • HAS DATA BEEN COMPUTED ?',/$) 

ACCEPT 807.AND11 
IF (ANDU.EO.'YM GO TO 451 
C 
C 

TYPE 1001 

1001 FORMAT(/lX. 'INPUT DeLX, LMAX' , /$ ) 

accept 1750,DELX,LMaX 

1750 FORMATC2G) 

type 1751 , 

1751 FORMAT!' IS RECORD TRANSVERSE OF LONGITUDIONAL (T OR L) */$) 
accept 807, WHICH 


265 


o o o fi nnriri 


• 07 rOpMJiT(A5) 
OELXIb OEtiX 


SIGMA SORD 4 h COMPUTED FROM PROGRAM PARTS 
AL(0) m 20 ' 

AL(t) m 30 . 

AL(2) R 40* 

ALf3) * 50 : 

ALf41 9 6^ 

ALfS) 

Ah(6) 9 80 . 

ALf7) 9 90 '. 

AL(8) « 100, 

Al.f9) ■ 110. 

AL(10) « 120, 

AL(ll) a 130. 

SIG2C0) ■ .339271 
SIG2(l) m *3400205 
SIG2C2) 9 .3666069 
SIG2C31 9 *4009919 
SIG2(4) 9 ,4378971 
SIG2C5) a U7S3911 
SIG2(61 a *,5126825 
SlG2f7) M 5494336 
SIG2(8) 9 .5855068 
SIG2(9) a *.6208566 
SlG2tl0) a ,6554832 
STG2(111 a ,73219 

PART 7. REQUIRES SUBROUTINES GAM, TRAP(366),AK 
computes von-karmen autocorrelation 

TYPE 1511 

1511 F0RMAT(' INPUT highest INDEX OF XI, EH, & M, <*$) 
ACCEPT 1752,NXIH,EH,MM 
1752 FORMATC3G) 

NXIHIbNxIH 
PI a 3.141S926S 
C116 a 11, /6. 

C56 a 5,/6 
C43 a 4,/3, 

CALL GAM(Cll6,Gn 
CALL GAMfC43#G2) 

GAM13 a 2.67893853 

BETA a 2.*Gl#CPI#a.5)/(5laG21 

C23 a 2,/3*. 

C13 a I./ 3 I 

CONST a •BETA#(2*.#*C233/GAM13 
CONSl a BETA/(GAMll*2,»aC13) 
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CONS? ■ f Ca,#*C23)/GAM13> 

PH2C0) ■ 0^0 
PH1C0) m 1.0 
DO 1070 I«l,100 
E) 9 .1«I 
CALL AKci,ei,AKn 
CALL AK(2#i:i#AK2) 

PHUD 9 CbNS2#(El##Cl31*AKfCONs2#tEl##Cl3)»AK2*Kl/2. 

IF (WHICH, EO.'L'lPHlCn m CONS2# 

1 (El##Cl 3)#AK1 

PH2(I)«CONsi#((E1#*C43)#AK1 - 
I 8.#(E1##CU)»AK?/3.) 

IF (WHICH, BO, •LnPHad) ■ CONST*fEl*#C131#AK2 
1070 CONTINUE 

D TYPE 6l00»PHlC971,PHlf98l,PHl(99l,PHl(100) 

D6100 rOPMATC* PHlt »,4G) 

D TYPE 6101rPH2(97>,PH2C98nPH2(99),PH2(100) 

D6101 FORMATC' PH2 

C 

c DO integrals 1 TO 4 

C PHI AND PH? ■ 0 IF MORE THAN 100 PTS USED (NUPR IS ARRAY INDEX) 

C IF LESS THiw 100 PTS USED IN INTEGRAL# SIMPSON'S RULE 

C IS USED UP TO LAST «EVEN" PT IN INTEGRAL, THE END OF THE 

C integral Is done as per HILDEBRAND CP,ni) for the remaindinc 

C PART OF the integral (USING TERMS Up TO THE FOURTH POWER) 

c 

EBAR • ,1/BETA 
DO 6068 L 9 0#LMAX+1 
EHMAX m EH/AL(L) 

NUPR(L) 9 IFIX(EHMAx/EBAR) 

NDO(L) » 0 

IF (NUPR(M ,GT,100) NuPRfl.) » 100 
IF (NUPR(L) ,EO,100) GO TO 444 
NDOCL) 9 t 

AODO » FL0AT(NUPR(L))/2'. 

NODD m NUPR(L)/2 

REM m AODD » FLOAT(NODO) 

IF (REM.GE’..5) MUPRfL) « NUPR(L) •! 

ELEFT(L) ■ EHMAX • FLOATf NUPR(L) )#E bAR 
D TYPE 447#AODD#NODO#rEM,ELEFT(L) 

0447 F0RMAT(' AbDD,NOOO,REM,ELEFT(L) i ' . G, 2X, 1 3 , 2X, 2G) 

444 CONTINUE 

D TYPE 6003#NUPR(L),L 

06003 F0RMAT(* NuPP(L) 9 '#14#' L INDEX *'#I3) 

DO 3002 Ia0,NUPR(L) 

E 9 EBAR#1 

AI2I(I) 9 PH1(I)#PH?(I)#E 
AI5KI) 9 PH1(I)*PH1(I) 

DO 3003 Jab#MM 
J1 ■ Jfl 

PHI(J,I) 9 (E##Jl)#pH2Cn 
PHlKJfl) 9 (Ea#J)»pHi(I) 
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3003 CONTINUE 

3002 CONTINUE 

CALL SlMPCBBAN,NUPRrL),AT2T.An 
CALL SlMP(EBAP,NUPRi:L5,AI5l,A2) 

All (L) m A1 

AI2CL) » A3 

IF (NDOCL5* EO,0) GO TO 445 
D TYPE 449#L.AHCL)#AI2(L) 

D449 FORMAT!* FOR L »*,I3#* All AI2 ai*fG5 

AIKL) m AII(L) ♦ DECTCELEFTfD# Al2l#NUPR(Ln 
D type 448^AI1(M 

0448 FORMAT!* All ■*»G) 

AI2!L) 9 AI2!L) + OeCT!ELEFTCLI, AI 5I,NUPR(Ln 

445 CONTINUE 

0 type 6609,L,AI1(L),AI2CLI 

D6609 FORMAT! IX, *L,AI1. Al2 i *, 1X*I4,2G5 
DO 3004 JJ»0,MM 
00 3104 I«0,NUPR(L) 

A12im « PHl!JJ,n 
3104 AI5I!I) 9 PHI1!JJ,I) 

CALL SIMP(EBAR,NUPR(M,AI2T, An 
AI3(JJ,Ll i Al 

CALL SlMP!EBAR,NUPRfL),AI5I,A25 
AI4!JJ,L) m A2 
IF !NDOcL)'.EQ,0) go to 446 
0 type 453, JJ,L, AI3! Jjf L),AI4t JJ,Ll 

0453 FORMAT! *JJ.L, AI3, AI4I *, 13, IX# 12, 1X,2G) 

AI3(JJ,L5 m AI3!JJ,M ♦ DECT!ELEFT(L) , AI2I,NUPR!L) ) 
AI4(Ja,M m AI4!JJ,L) ♦ DECT!ELEFT! L3 , AI5I,NUPR!L) ) 

446 CONTINUE 

D TYPE 6608, JJ,L, AX3! JJ,L) . AI4! JJ,L) 

06608 FORMAT! IX, »J,L,AI3, Al4 i * , 2X, 214, 2G) 

3004 CONTINUE 
6068 CONTINUE 
C 

C READ IN AUTOCORRELATION FN. 

C 

CALL IFILE (20,*AUTO*) 

PEAD(20,900) 

REAO(20, 19505FLE 

1950 F0RMat!/IX, 'AUTOCORRELATION OF STATIONARY SAMPLE*, /IX, 
1 'DATA TAKEN FROM FILE *,A51 

RE AD ( 20 , 906 ) NPTS , TWbt , MPTS , FTM I 
PEAD(20,901)M2ERO 
READ! 20,910 )WBAR,VAr 
READ( 20,95nWSUM 

951 F0RMAT!/1X, *<W OF L(X)##2> ■ *,Fl2,45 

READ!20,381)XAOFF,MaOFF 

381 F0RMAT(/IX,* TRUCATtON POINT WAS*,G,* METERS*, /IX, 

I *WHICH contains *,I7,* POINTS^ 

READ!20,1952) 
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1992 


1 

1823 

1915 


4324 

C' 

c 

c 

c 


7023 


7024 

7006 

7007 
C 

C 

c 


rORMATf //IX, 'PRINTOUT OF THE VALUES OF THE AUTOCORRELATION^ 
/lX,8Xf 'X'.J2X,' RL S9X#'RL>R0») 

DO 1823 liP0,NXIH 

READ(20,l9t5)DEL,RL(I),YY 

FORMAT(lX,3(2X#Gn 

END FILE 20 

type 4324#RL(NXIH) 

FOrMAT( ' RL(NXIH) 

DETERMINE WHETHER SlMpsON^S RULE OR TRAp'. RULE IS TO BE 
USED IN integral 15 t 16 

DO 7023 L«0,LMAX+l 
EB V DELX/ALCL) 

EWAY(L) ■ »TRP' 

IF (EB'.GT.PBAR) EWAyfM ■ 'SMp^ 

LCHNG p «2 
TP P 1 

DO 7024 LP0,LMAXtl 
IF (EWAY(Ll,EO,*SMPn TP « 0 
TF (EWAYCLl ,EO, •SMPt) LCHNG p L 
IF (TP.EO.n TYPE 7006 

FORMATf» SIMPSONS RuLE NOT USED FOR 15 & J6n 
IF (TP.EQ.0) TYPE 7007#LCHNG 

FORMAK' SIMPSONS RULE USED IN 156 16 UP TO L INDEX p'»I3) 

DO integral 15 AND I6 WHEN E/L > EBAR 

IF CTP.EQ.n GO TO 7008 
DO 7050 Lp0^LMAX41 
IF (EWAY(Li ,EQ,*TR pi) GO TO 7050 
ALBAR ■ ALfL)«EBAR 
DO 7002 IP0,NUPR(L) 

ALDT p IpALBAR 
NpLCE P IFiXf ALDT/D eLX+'.S) 

IXMIO P NPLCE 
IXLOW p IXMID • 1 
IXHIG P IXMID+ 1 
IF (IXMID,EQ,0) IXLOW • 0 

IF (IXMID,EO.01 IXHiG p 2 

IF (IXMID,EQ^0) iXMlD p 1 

IF (IXMID.GE.NXIH) IXLOW p NXIH»2 

IF (IXMID.GE^NXIH) IXHIG p NXIH 

IF (IXMID.GE.NXIH) IXMTD p NXIH*l 

AKICl) P RL(IXLOW) 

AKIC2) P RL(IXMID) 

AKK3) p RL(IXHIG) 

X(1) P IXLbWPDELX 
X(2) p IXMidpDELX 
X(3) P ixhigpdelx 

XPL P ALDT 
CALL PARABifAKZ) 

RLI P AKZ 
EpEBAR*! 

A12KI) P E*PH2(I)#pLI 
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7002 HISKX) m PHl<I)#RLl 

CALL SlMP(i;BAR,NyPR(L),AT2l,A3) 

CALL SlMP(EBAR,N(JPRi:L),AI5lf A4) 

A15(L) n Ai/RL(0) 

AI6(L) m A4/RLC0) 

D TYPE 7449fL,AI5(L),Al6(L> 

D7449 FORMATt* L, Al5 » AI 6 1 * , 3G) 

IF (NDOcL}.EO,0) go to 7050 

AI5(L) b AI5(L) + (DECT(FLErTCL},AI2I»NUPR(Lm/RL(0) 
AI6(L) 9 AT6fL) t (DECTfELEFTf L) , AI5I # NUPR(L) ) ) /RL( 0) 
D TYPE 7450#AI5(L),AI6(L) 

D7450 FORMATC* AI5,AI6iS2G) 

7050 CONTINUE 

C 

c 

c 

c INTERPOLATE PHI AND PH2 WHEN E/L < EBAR 

C 

7008 DO 1050 Lb0,LMAX^1 

IF (L.LE.LCHNG) GO TO 1050 
PHI(L,0) B 1.0 
PHI1(L«0) B 0.0 
EB B DELX/AL(L) 

D TYPE 1071#EB,EBAR 

D1071 FORMATC* E0 9*,G,* EBAR b*.G) 

XMAX2 « DELX#HXIH 

XMAXl B 100.#EBAR 

DO 2071 JX B IfNXlH 

IXMIO B IFTX(EB*JX/ESAR-fl51 

IXLOW B IXMIO-1 

IXHIG B IXMID+l 

IF (IXMIO, GE, 1001 IXHIG B 100 

IF (IXMIO, GE, 1001 TXLOW a 98 

IF (IXMID.GE.1001 IXMID b 99 

IF (IXMIO, EQ. 01 IXHIG b 2 

IF (IXMID,EO,01 TXLbw B 0 

IF (TXMID,EQ.0) IXMjD b 1 

AKI(l) B PHl(IXLOW) 

AKI(2) B PHKIXMIDI 
AKI(3) B PHKIXHIGl 
X(l) B IXLbw#EBAR 
X(2) B IXMidbEBAR 
X(3) B IXHIGbEBAR 
XPL » EB#JX 

IF (XPL,GT*.XMAX11 GO TO 2072 
CALL PARABfAKZl 
PHI(L,JX1 B AKZ 
AKT(i) B PH2(IXLOW) 

AKI(2) B PH2(IXMTD1 
AKI(31 B PH2C1XHIG1 

xcn B ixlow#ebar 

X(2) B IXMID#EBAR 
X(3) B IXHIGbEBAR 
XPL B EB#JX 

170 CALL PARABfAKZl 

PHIKLfJX) a AKZ 



2072 IF CXPL.GT' XWAXn PHI(L*JX) « 0«<9 
IF (XPt.GT.XMAXn PHI1(1.*JX) « 0*0 
2071 CONTIMOE 

1050 CONTINUE 

C 

C INTEGRALS i AND 6 WHEN C>L < E8AR 

C 

DO 3010 L*0,LMAX+1 

IF CL.LE.LCHNG) GO TO 3010 

DO 3011 Ii!0,Nx1H 

AlSim m DELX#I#PHH(L,n#RL(I) 

3011 AI2irn » PHI(L,I)#rLcI) 

CALL TPAP2fAlXY) 

AI6CD K Alxy/{RL(0)#AL(Ln 
CALL THAPSfAlXy) 

AI5CL) n AlXY/fRL(0)#AL(L)#ALtLn 
3010 CONTINUE 

D DO 3019 L»0,LMAX+1 

0 IF (EWAYCLI.EQ, *sMPn GO TO 3019 

D TYPE 6007,L, A15(L1 

D TYPE 6008,L, AI6CL5 

D3019 CONTINUE 

D6007 FOPMATC' for L**,I3,' AI5 »'/G) 

D600B FORMAT(' F6r Lii%I3.^ AI6 «'#G) 

C 

C INTEGRAL ld(j) 

C 

DO 1080 J2 * 0fMM 
DO 1081 J»0,NXXH 

10B1 A12im s f COELX#n##J2)#RL(I) 

CALL TPAP2fAlXY) 

10B0 AI8(J21 » AIXY 

C 

C integral IltvJ) 

c 

MMTWO m 2#MM 
DO 1084 J2 *0, MMTWO 
lEX • J24l 

1084 AI7(J2) m f EH##IEX) /( FLOATf J2) ♦ l’,) 

D type 5219,A17(MMTW0) 

05219 FORMAT!' FINAL VALUE OF T7 I5t'#>lX,G) 

C 

C START ITERATION 

C 

451 MCOUNT m •! 

19 NCOUNT • NCOUNT +l 

TYPE 4 

4 FORMAT!' PIC^ A SIGMA 50R0 AND ITS ASSOCIATED L INDEX' #/$) 

accept 1753,SIG2J(NcOuNt1,LSIG 
1753 F0RMAT!2G) 

C 
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II 


c DETERMINE CI^OSEST MiDpT FOR INTERPOLATION ROUTINES 

C 

OIYI m ABSfSlG2J(NCOUNT)*SlG2(LSlGn 
DIY2 m ARS(SlG2Ji:NCbUNT)«SlG2(LSlG+n) 

LCTR m LSIG 

IF (0IY2;LT,DIYn LCTR a LSIG ♦ 1 
D TYPE 7028, LSIG, LCTR 

D7028 F0RMAT(» LSIG LCTR a*, 13) 

C 

C CALL interpolation ROUTINES 

C 

CALL set (AL,SIG 2,SIG2JCNC0UNT), LCTR, BKl ) 

ALJNt a BKl 

TYPE 6056,8IG2J(NCOuNT), ALINT 
6056 FORMAK* for sigma SORD h INt a*,G) 

C 

IF (LCTR.LT.(LCHNG+2)) go TO 7012 

DO 7010 La0,LMAX4l 

ATSX(L) a Al5CL)»ALcL)#ALfL) 

7010 AI6X(L) a Al6(L)#ALfL) 

CALL SETCAI5X, AL,AL1Nt,LCTR,BK1) 

AI5T a BK1/(ALINT*ALINT) 

CALL SETCAI6X, AL,ALINT,LCTR,BK1) 

AI6I a BKI/ALINT 
go to 7011 

7012 CALL SET! AI5,AL,ALINT, LCTR, BKl) 

AI5T a BKl 

CALL SET(AI6,AL,ALINT, LCTR, BKl) 

AI6I a BKl 

7011 CALL SET( All, AL,ALINT, LCTR, BKl) 

AIIT a BKl 

CALL ANTRPfLMAX,ALlNT, AL.LSIG, AI2, AI2T) 

C 

D TYPE 9084, AI5T,AI6I, AIIT. AT2T 

09084 FORMATC* FOP INT AI 5 I a».G,'AI6l a*,G,'AIlT a'.G,^AI2T a*,G) 
DO 6069 UK a0,MM 
AKI(l) a AI3 CUK,LCtR*1) 

AKIC2) a AI3 (UK,LCtR) 

AKI(3) a AI3riJK,LCTR+l) 

X(l) a AL(LCTR-l) 

XC2) a AL(LCTR) 

X(3) a ALtLCTR+l) 

XPL a ALINt 
CALL PARABfAKE) 

AI3T(IJK) a AKZ 
AKI(l) a AI4 CIJK,LCtR»1) 

AKIC2) a AI4 CUK,LCtR) 

AKIC3) a AI4 (UK,LCtR>1) 

X(l) a AL(LCTR-l) 

XC2) a ALCLCTR) 

X(3) a ALCLCTRfl) 

XPL a ALINt 
CALL PARAB^AKZ) 

AIATdJK) a AKZ 
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D TYPE 60l0f TJK, AI3TCIJK),AI4T(1JK^ 

D6010 rOpMAT(* J ii*fl3.*Al3T h»,G,*AI4t «',G) 

6069 CONTINUE 

C 

C compute DEL(L)/DEL(sIGMA SOPD) 

c 

AKICl) ■ SIG2(liCTR-n 
AKK 2 ) m SIG2CLCTR) 

AKIC3) « SlG2CliCTR+l) 

X(l) m ALCLCTR*!) 

X(2) ■ ALCLCTR) 

X(3) m AI^(liCTR+n 
XPL m SIG2J(NC0UNT) 

CALL PARKISLDS) 

TYPE 7004#DLOS 
7004 FORMATC' olds ■ SG 5 

C 

c 

C compute coefficients XC a P.H.S.. ARRAY A a L.H.S, 

c 

XCH) a RLf0)#(«SIG2JtNCbuNT)#OLD5#AI5T+ALINT#Al6n 
A(1#n a •SIG 2 J(NC 0 uNT)#DLDS#AI 1 T 4 -ALINT#AI 2 T 
DO 3013 Kaa,MM+2 
K 2 m Km2 
LbK 

L2 B K2 

XCrK) m AI4(K2)/ALINT##K2 
A(K,n a ALINT#AI 4 T(K 2 ) 

A(1#L) a -SIG2J(NCOuNt)#DLDS*(ALINT#*L2)»AI3T(L2) 

1 ♦ CALINT»#fL«l ) 1*AI4T(L2) 

DO 3014 LA m 2»MM4>2 
LAK a KfLA»4 

3014 A(K,LA1 a f ALINT##(LA.LAK»2n#Al7 (LAK) 

3013 CONTINUE 

D TYPE 7003#XCCn,A(l,n,A(1.2) 

0 TYPE 7005,)(C(2),A(2,l),Af2.2> 

07003 FORM AT (• X(? ( 1 ) , A ( 1 , 1) , A ( 1 , 2 ) I ' . 3G) 

D7005 format (♦ XG( 2 )»A( 2 ,n,A( 2 , 2 ) ! *,3G) 

C 

C 00 SIM, LINEAR EQN USING DOUBLE PRECISION PROGRAM OGELG 

C 

MM2 1 MMf2 

ALG2 » DLOG10C2.D0) 

MM3 a MM^3 
DO 10 Ial,MM2 
DO 10 JalrMM2 

10 OIJ(I,U) a DLOGl0COABS(AfI. J>n/ALG 2 

DO 20 Ial^HM2 

20 0IJCI,MM3) « DLOGl0fDABsi:xC(I)))>ALG2 

C< IF mm a4 USE DOUBLE PRECISION CONSTANTS BELOW 
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II III II I 


II mil II II 


II II II I I II Mil mill II 


II III 


C IF not use followtnr logic 

OMM23 ■ 42lD0 
DMM2 > 6’,D0 
OMM3 9 7,D0 

IF (MM,NE,0) GO TO 6693 

OMM23 9 6,t)0 

DMM2 B 2.00 

DMM3 B 3.D0 

GO TO 6681 

6683 IF (MM.NE.n GO TO 6680 
DMM23 ■ 12lD0 
DMM2 B 3].D0 
DMM3 B 4.D0 
GO TO 6681 

6680 IF (MM.NE.p GO TO 6682 

DMM23 « 20.00 

DHM2 B 4,00 
0MM3 B 5.00 
GO TO 6681 

6682 IF (MM.NE.3) GO TO 6681 

DMM23 B 30lO0 
DMM2 B 5',D0 
DMM3 B 6.00 

6681 SUM B 0.0 
DO 30 

DO 30 Ib1,MM2 

30 SUM B SUM +DIJCI,J1 

AM B •SUM/DMM23 
DO 40 Ip 1, MM2 

51 9 0,0 

DO 50 Jb1,MM3 

50 SI B si ♦ rOlJf I, Jl+AM) 

40 RI(I) 9 -S1/DMM3 

DO 60 Jb1,MM3 

52 > 0,0 

DO 70 Ib1«MM2 

70 S2 B 52 ♦ fDIJ( I, J)+AM) 

60 CJfJl 9 •S2/DMM2 

00 80 Jb1,MM2 
IX 9 (J*1)#MM2 
DO 80 Ib1,MM2 

80 AMTRXdflXl 9 A(I,J)#2‘.D0##(Rirn+CJCJ)+AMl 

DO 90 Ib1,MM2 

90 XC(I) 9 XCd)*2,D0##(Rl(I)4CJfMM3)+AM) 

53 B 0.0 

00 110 Ib1.MM2 
110 S3 > S3 4 8I(I) 

54 ■ 0,0 

DO 120 Jb1.MM3 
120 54 B 54 ^ GJ(J) 

CALL OGELGfXC, AMTRX.MM2, 1 , 1 .E*10, lER) 

TYPE 3016, lER 
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3016 FORMATC' IFR » '#05 
DO 100 

100 XC(I) ** XCf n#2,»#CCJ(I5«CJCWH3)l 

SIG2JCNCOUNT+15 P xccn 
type l620»NCOUNTf XCf n 

1620 FORMATC' for NCOUNT pSI 2,' SIGMA SORO p*,G./lX) 

C 

C 

28 TYPE 1627 

1627 F0RMAT(' stop LOOP ? (Y OR N) St) 

ACCEPT 807. STOP 

IF C5TOP,E0,*N*) GO TO 18 
C 

C COMPUTE FINAL A*S 

C 

DO 3017 Lp9,MM2 

3017 AIfL*2) P XC(L) 

C 

c TYPE OUT FINAL RESULTS 

C 

31 type l628,NCOUNT.ALlNT.XC(n 

1628 F0RMAT(* on LAST PASS NCOUNT p',T3.' L p*.6,/IX, 

1 'AND SIGMA SQRD p*,G) 

DO 32 12 • 0#MM 

32 TYPE 1629.I2#AI(I2) 

1629 F0RMAT(* Ar>,I2,n «SG) 

C 

c compute RCXDf PART 9,K 

C 

CALL OFILEf20| 'ITM2*) 

WRITE(20,915) ^MM,EH.FLE 
WRITE ( 20, 1632 )ALINT, xccn 

1632 FORMATC/IX. 'OUTPUT FOR PART 9 . K' . /I X, • WITH L pSG, 

1 ♦ and sigma SORD p'.G) 

DO 7016 IP0,MM 

7016 WRITE ( 20, 701 5 ), I, Alt n 

7015 FORMATC' coefficient AC'. II,*) p '*C) 

WRITEC20,1631) 

1631 F0RMATC/3X/, ' XI ' » 1 2x. 'R C XI) ' . 1 2X. 'XI CONTD' , 8Xf 'RC XI ) CONTD') 
ARG P ALINt».1/BETA 
NX2 P IFIXfEH/ARG) 

NX12 P (NX2/2) • I 
DO 41 Ip 0,NX12 
El P ARG»I 
E2 P ARG*ClfNXl2>l) 

SUMl p 0. 

SUM2P 0. 

DO 42 10 P 0,MM 
SUM2 p SUM2+AICI0)«E2««I0 
42 SUMl p SUMltAiri0)*El*«I0 

IF (I.Gt‘.100) R p StlMl 
IF CI.GT.100) GO TO 43 
R P XC(1)»PH1CI)+SUM1 
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43 IF ( (I + NXl2 + n .GT.100) R2 ■ SIJM2 
IF Cfl+NX12^1),GT,1005 GO TO 41 
R2 m XC(1)#PHICI+NX12)+$!.TM2 

41 WRlTCt20rl430)Fl,R#E2,R2 

1630 F0RMAT(4G) 

END FILE 20 
C 

c Dd PART 9,L# COMPUTE SIGMA SORO#L*PHIK 

C 

CALL OFILEt21# ^ITM2L') 

WRITE(21,915)#MM,EH.FLE 
WRTTE(21, U33)ALINT,XCf n 

1633 FORMATC/^ output FOr PART 9 ,L» , /I X, 'WITH L AND SIGMA*# 

1 * SORD ■*#6#//lX#* K*,8X. *L#SIGMA SQRD#PHIK* . 5X, *K C0NT0*,4X# 

2 *L#SXGMA SORD^PHIK contd*5 
SIG2L m XCfl)#ALINT 

type 7013 

7013 F0RMAT(* INPUT DELK *,2X.O 
accept 7014,DELK2 

7014 FORMAT(G) 

DO 44 I « 0#5il 
EXCl » DELK2#I 
EXC2 « DELK2#(I+512 i 
AKLP m ALINT»EXCJ 
AKLRl « ALINT#EXC2 
ALKI2 « AKLR#AKLP 
ALKI3 « AKLRUAKLRI 

PHIK ■ (2,/(1.+70,78#ALKT21##C561#SIG2L 
PHIKl m (21/Cl. +70. 7B^^ALKT3)*♦^C56)^^SIG2L 

IE (WHICH. EO.'T*) PHIK s ( ( 1 .+! 88 .75»ALKI2) /( 1 .+70,78#ALKI2) 

1 ##C1161#S1G2L 

IF (WHICH, EG. *T*) PHIKI ■ ( ( 1*. + 1 88 .75#ALKI 3 ) / ( 1 . + 70 . 78*ALKI 31 
I *#C1165#51G2L 

44 WRITE(21# 1630 )EXC1#PHIK,EXC2 # PHIKl 
END FILE 21 

C 

915 F0RMATC//1X# *DATA FILE CREATED BY PROGRAM FINAL*#/1X# 

1 •WITH M ■».I3#* AND LENGTH «*#G#* AUTOCOR'. OF FILE *.A5) 

900 F0RMAT(//1X, *DATA FILE CREATED BY PROGRAM ATURB3*) 

903 FORMAT(lX,Pl0.6#3X,El2.4,3X,ri0,6#3X#E12.41 

906 rORMAT(//lX,I6# * DATA POINTS WErE USED IN 2L ■ *#F16.4# 

1 • METER*, /1X#I5# • Data points WERE USED IN M * *,ri6.4, 

1 • METER*) 

907 F0RMATC//1X, 16, * ZEpOS WERE ADDED TO DATA*) 

910 F0RMAT(//1X, 'MEAN VALUE OF WCX) • *,E15,5,* M/SEC*,/1X# 

1 *MEAN sol VALUE ■ '.E15.5,* (M/SEC)#*2*) 

C' 

9999 end 
C 
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c 

FUNCTION DCCT(ULEFT,AIXZ.NAUn 
DIMENSION AIXZ(0/290) 

DECT m ULEi»*T»(2.6402778#AIXZ(NAUl)-3.852778#AIXZ(NAUl*l) 

1 +3.S333333#AIXZ(NAU1»2)w 1 .7694444#AlXZ(NAUi*3) 

2 f ,3406111 1#AIXZ(NAU1 -4 n 
RETURN 

C 

END 

C 

SUBROUTINE SET( A1 , ,C1 , LSIG, BXn 
C 

DIMENSION Al(0/ll),Bl(0/in 
COMMON/BB/XC3),AKI(3),XRli 
C 

AKKl) R Al(LSlG*n 
AKI(2) a Al(LSIG) 

AKK3) a AhLSIG+1) 

XCn a Bl(LSlG»n 
X(2) m BI(DSIG) 

X(3) a BlCtiSlG^n 

XPL m Cl 

CALL pARABfAKZ) 

BKl a AKZ 

C 

RETURN 

c 

END 
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Subroutine GAM 
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n o ft n n o o 


C <ttf lSHisR>GAM.F4>l 28-Sep-77 13:47:22 ££1T BV RFlSbfiB 

BUbBUUtX«£ GAi4(GAHMA#GGi 
PROGRAM TO COMPUTE GAMMA FUMCTIGNS 

PROGRAM DERIVED PROM **H ARDBOOiC OF MATH. FUNCTIONS^ RAT. 
BUREAU OF STAMDARDS^ APPLIED MA7B SERIES 55*V 1^64 
PROGRAM USES E^M 6«1.15 (P 2SE) AAU APPRUX. 6.1.3E (P.i57> 

AMS RETURNED AS GG^ INPUT IS GAMMA 

IF (GAMMA.GE.2.) GO 10 1 
X = GAMMA -1. 

RES =1. 

GO TO 18 
1 N = IfIXCGAMMA>-l 

RES - 1, 

DO 20 

20 RES - RES*iGAMMA-fLQATCIl) 

X = GAMMA - FlOAKn^I) 

10 GG = 1. - .577191652*X ♦. 98820b 89 1^X»* 2 - . 897056937* X** j 

1 -I- .9ie206857’*X*«4 - .7567C4076*X*^5 ♦ .482 199394* A** t 

2 - .193S27818*X**7 ♦ .03386 8343*X** d 
C 

GG = 6G*RES 
C 

RETURN 

C 

END 
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Program GDIST6 
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on — o -j no nnnnnnnn 


program to compute OIsT*, several ways, notes 
mark of sEpT 25f 1977. ••APPROXIMATIONS USING 

FORMS OF Generalized gram-chaplis 

UPDATED version PAGES 6,7 

USED with ITRM4, at. turbulence Part 5 

requires subroutine Gam 


PI « 3,1.41592654 
PI2 » PI/2'. 

TPI « (2>PI)##«p,5 


type 7001 

001 FORMATf» INPUT ALpHF 
ACCEPT 702,ALPH1F 
ACCEPT 702,ALPH2F 
ACCEPT 702.ALPH3F 
ACCEPT 702,ALPH4F 
ACCEPT 702,ALPH5F 
ACCEPT 702,ALPH6F 

02 FORMAT(G) 

ALPB « ALPH2F • ALPH 1 f#ALpH 1 F 
ALPB2 * SORT(ALPB) 

GAMMA a ALpH1F*ALPH1F/ALPB 
TYPE 1010, gamma 

010 fomatc' gamma «',G) 

ALAM s GAMMA/ALPHIF 
GAM2 » GaMMA/2. 

GAM 12 s (GaMMA+ 1 .)/ 2 . 

TGAM 8 2.»#(GAMMA*.5) 

DELX * ,1*AIjPB2 


CALL GAM(GAM2#GG1) 

CALL GAM(GAM12,GG2) 

BEl * (GAMma*1.)/2. 

BETA » gamma • 1. 

B2 s BEtA*BETA 

B3 « BETA*B2 

B4 a 8 Eta*B3 

AL3 * ALAM#ALAM#ALAM 

AL4 « AL3*ALAM 

G12 « GAMMa#(GAMMA+ 1.)#(GAMMA+2,)/6. 
G123 « Gl2a(GAMMA + 3,)/4'. 

G4 * Gl23»tGAMMA44.)/5, 

G5 « G4#cGAMMAf5',}/6, 

COl * calam/gammai 

C02 M (COl*ALAM/(GAMMAf 1*.)) 


FROM bill 

derivative 
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C01 » CC02#AI.AM/CGAMMA + 20) 

C04 » (COJ#ALAK/fGAMMA+3l)5 
C05 « (C04#ALAM/eGAMMA>4..n 
COS a tC05*ALAM/CGAMMA+5.5) 

BB3 * Gt2*^V.«3,#C0l#AtipHiF+3,#C02#AtPH2F«C03#ALPH3n 
rb 4 a Gt234Kl .»4',#C01#ALPHlF+6>G02#ALPH2F*4.aC03#ALPH3r+ 
C04#A!iPH4r) 

BB5 » G4#( t .•5 ,#CO1#ALPH1F+10,#CO2#ALPH2F«10.#CO3#ALPH3F+5'.# 
G04#AtPH4F«»C05#ALPH5F) , 

BB6 a G5#(i.«6.#COl#ALPHiF+l5.#CO2#AliPH2F'*20.*CO3#ALPH3F+l5.# 
C04#ALPH4P'*6.*C05*ALPH5F+C06#ALPH6F) 

F0N0 8 0’, 

F0NI * 0' 

F0M2 = 0^ 

FIM0 a 0. 

FlNl s 0 ;, 

F1N2 a 0 ’ 

F1N3 a 0 , 

F2N0 * 0 I 

F2N1 a 0 ’. 

F2N2 a 0*. 

F2N3 = 0 ' 

F2W4 * 0, 

F 3 N 0 s (d\ 

F3N1 a 0‘. 

F3N2 a 0 ’, 

F3^53 a 0*. 

F3N4 a 0‘, 

F3N5 a 0 ; 

F4N0 « 0 ’. 

F4N1 a 0 ', 

F4M2 a 0 ' 

F4N3 a 0 J, 

F4N4 a 0. 

F4*^5 a 0^ 

F4N6 a 0. 

TYPE 600 

FORMATC/, ' XS 1 IXf ♦FlPPM'^gX, •F2PRM»,9X. 'F3PBM*,9X, 'F4PRM*) 

DO 20 Ial,100 
X a DELx#I 
ALX a ALAM#X 

PHT0 a (ALAW#EXP(»ALX^#((AtiX#*BEn/GGn#C(ALX##SEn/GG2))/ 

( tpi^tgaw ) 

P3 a 1, • 3,»C01#X + 3«*C02#X*X • C03#X#X#X 
P4 a 1, • 4.#C01#X + 6,*C02#X»X • 4,#C03#X#X#X + C04*X*#4 
P5 a I ,»5.#COt#X+10.#CO2#X*X*10.*CO3*X»»3'f5',#CO4#X#»4»CO5#X##5 
P6 a 1 .•6*#CCt#X+l5,#CO2»X<^X«20t#CO3#X##3 + 15,*CO4#X#*4* 
6,^^C05#X^H^5+C06*X#*6 
FIPRM a pHl0 ♦ B83^^PH^0^^P3 
F2PB^ » FIPPM ♦ 8B4#PHI0 #p 4 
F3PRW a F2PRM + BB5#PHI0#P5 
F4PPM a f3PRM ♦ BB6#PHI0#P6 



c 


F0N0 


F0N0 

+ 

PHI0 

F0NI 

* 

F0NI 

+ 

PHI0#X 

F0N2 

9 

F0M2 


PHI0#X*X 

F1N0 

m 

F1N0 

♦ 

FIPRM 

FlNl 

s 

FlNl 

■f 

FIPPM#X 

FIN2 

X 

FlN? 

+ 

FtPRM#X#X 

FIN3 

X 

FlN3 


FJ.PRM#X##3 

F2N0 

s 

F2^^0 

■f 

F2PRM 

F2N1 

m 

F2N1 

4 

F2PRW#X 

F2N2 

X 

F2^2 

-f 

F2PRM*X*X 

F2N3 

X 

F2N3 

•f 

F2PRM#X*#3 

F2N4 

X 

F2N4 


F2PRM#X*#4 

F3N0 

X 

F3N0 

+ 

F3PRM 

F3NI 

X 

F3N| 


F3PRM#X 

F3N2 

X 

F3^^2 

+ 

F3PRM#X#X 

F3N3 

X 

F3«3 


F3PRM#X##3 

F3N4 

X 

F3N4 

+ 

F3PRM^^X^^*4 

F3N5 

X 

F3«5 


F3PRM#X##S 

F4N0 

e 

F4N0 

’♦> 

F4PRM 

F4N1 

X 

F4NI 

4 

F4PRM#X 

F4N2 

X 

F4^7 

4 

F4PRM»X»X 

F4N3 

X 

F4^»3 

4 

F4PRM#X##3 

F4N4 

X 

F4«4 

4 

F4PRM#X##4 

F4N5 

X 

F4^‘5 

4 

F4PRM#X*#5 

F4N6 

s 

F4N6 

4 

F4PRN<*X»*6 


TYPE 700, X,F1PPM,P2PRM,F3pRM,F4PRM 
20 CONTlf^UE 

700 F0RMAT(F6f 2, 2X,4G) 

C 

TYPE 7004» F0N0,F0N1 ,F0N2 
type; 7004f F1N0,F1N1 ,F1N2,F1N3 
TYPE 7004f F2N0,F2N1 ,F2N2#F2N3,F2N4 
7004 F0RMM(5G) 

TYPE 7004#F3N0,F3N1 ,F3M2.F3N3,F3N4 
type 7004fF3M5 

type 7004#F4N0,F4N1 , F4N2 # F4N3 , F 4M4 
TYPE 7004,r4N5>F4N6 
C 
C 

FMD 
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Subroutine HPDES 
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nunriooooononoonnnninooonoonri 


HPDE5 

HIPASS BOTTERWORTH FILTER DESIGN SUBROtlTlME 
INPUTS are cutoff (3»DB) FREQUENCY FC IN HERTZ, 

sampling interval t IN seconds', and 

NUMBERNS OF FILTER SECTIONS*. 

OUTPUTS APE NS SETS OF FILTERED COEFFICIENTSf t,E', , 

A(K) thru CfK) FOR K»l THRU NS, AND 
10 PAIRS OF FREQUENCY AND POWER GAIN, I,E'. , 
GRH,K) and GRf2.Kl FOR Kul THRU 10 
NOTE that A(K),BCK),C(K) AND GR(2,l0) MUST BE DIMENSIONED 
IN CALLING PROGMI 

THE digital filter HAS Ns SECTIONS IN CASCADE, THE KTH 
SECTION HAS THE TRANSFER FUNCTION 

A(K)#Z(Z## 2 n. 2 #Z+n 

HCZ) ■ 

Z# 4 i 2 + BCK)*E+C(K) 

THUS IF F(M) ANDG(M) ARE THE INPUT AND OUTPUT OF THE 
KTH section AT TIME M»T, THEN 

G(M) s AfK)#(F(M)»2#F(M.i5+F(M»2n«B(K)#G(M-l ) 
•»CbK)#G)M. 2 ^ 


SUBROUTINE HPDES ( FC , T, NSI 
COMMON/CC/A(3),B(3),C(3),GR(2,101,F(4,3) 

PI * 3.1415926536 

WCP * SIN(|F*C#PI*T) /COsfFC#PI#Tl 

DO 120 K»1,NS 

CS • COSfFLOATC2#(K + NSWn#PI/FLOAT(4#NSn 
ACK) s 1 ,/f 1 ,+WCP#WCP*2.#WCP#CS) 

B(K) m 2’,»PWCP*WCP*l^)#AfKl 
120 C(K) m (1,+wCP#WCP+2.#WCP*CS)#ACK) 

DO 130 K*1.10 

GP(2,K) » .01+,98#FlOAT(K.1 )/9. 

X ■ ATAN(weP»Cl ,/GRf 2, K)-i .)##(•! ,/FL0AT(4#NSn ) 
130 GP(l,K) ■ k/CPI*T) 

RETURN 

END 
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Program ITEM3 
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n rj rj ooor* o on oo oo o o ni o o r» o o n o 


PROGRAM ITEM3, ATMOSPHERIC TURBULENCE TASK 

ITEM 3, parts 5 AND 6. PHASE II OF ATMOSPHERIC TURB. 

program reads data file I 

AUtOF* autocorrelation FN FrOM ATURB4 

autF2» autocorrelation produces with W##2* from 
MODIFIED version OF ATURB4 
program produces data FILES! 

RSTGF* values of R CSIGMA SORD E)# part 5 ITEM 3 
pHlFfi VALUES OF PHI OF F, PART 6# ITEM 3 

REQUIRES SUBROUTINE CFFTl 

run program ATURB4 TO DETERMINE PHI L, R L,AND PHI L , 

R L for squared WCT) VALUES (SEE MARK'S NOTES ITEM3) 
run ITEM2 TO determine SIGMA SQRD AND L 

DIMENSION RWH(0/1300),RWH2(0/1 300) 

DIMENSION AUTC0/5000) 


INPUT INITIAL parameters 

j (filter cut-off frequency) 

FORMAT(/lX, 'INPUT DELX',/$) 

ACCEPT 1750, OELX, 

FORMATCBG) 

RrAD IN AUTOCORRELATION Fn'« 

CALL IFILE C20#'AUTOF') 

READC20,900) 

READ(20, 1950)FLE 

1950 F0RMAT(/1X, 'AUTOCORRELATION OF', /IX, 

1 'HIGH PASS FILTERED NON. HOMOGENEOUS SAMPLE', /IX, 

2 'DATA TAKEN FROM FILE ',A5) 

READ(20,906)NPTS,TWOL,MpTS#FTMl 
READ(20,907)MZERO 
READC20,910)WBAR, VAR 
REAO(20, 951 iWSlTM 

951 FORMAT(/lX. '<W OF L(X)*#2> « ',F12*.4) 

READ (20, 38nxAOFF,MAOFF 

381 F0RMAT(/1X,' TRUCATtON POINT WAS^,G,' METERS*#/1X, 

1 'WHICH CONTAINS ',17.' pOlNTSM 
READ(20, 1952) 

1952 rORMATC//lX, 'PRINTOUT OF THE VALUES OF THE AUTOCORRELATION', 
1 /IX,9X,'X*,12X,' RL ',9X, 'RL/R0') 

DO 1823 l«0,MAOFF 

1823 READ(20, l9l5)DEL,RWH(I),yy 

1915 F0RMAT(1X,3(2X,G)) 

END FILE 20 

TYPE 4324,RWHCMAOFn 
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4324 FORMATC * RWH(MAOFF) a',G) 

C 

C READ IN autocorrelation FN. OF SQUARED W(T) 

C 

CALL IFILE (20,*AUTF2») 

READC2O,900) 

1965 FORMATt/lX , ^autocorrelation 0F*,/1X| 

1 »HIGH PASS filtered AND SQUARED NON«HOMOGEMEOUS SAMpLE»,/lX, 

2 *DATA Taken from file ',as) 

READ(20,1965)FLE 

READ(20f 906)NPT5#TWOL,MpTS.FTMl 

REAO(20,901)MZERO 

READ(20,910)WBAR, VAR 

READ(20,951 )WSUM 

READ C 20 » 3 8 n XAOFF, M aOfF 

READ(20# 1952) 

DO 1824 I«0,MAOFF 

1 824 READC20,19l5)DEL,RWH2(I),yy 

END FILE 20 
type 4325f RWH2(MA0FF) 

4325 FORMATC » RWH2CMAOFF) »^,G) 

C 

C READ IN sigma SQRD, L CAFtER RUNNING ITEM2) 

C 

TYPE 111 

111 FORMATC' INPUT SIGMA 5QRD. L',/$) 

ACCEPT 2,5IGF,AL 

2 FORMATC2G) 

C 

c DO PART 5# R CSIGMA SQRD F) 

C 

CALL OFILE^ 20f 'RSIGF') 

write (20^911) 

WRITE(20,1953)SIGF, AL 

1953 FORMATC' FOR SIGMA SQUARED ■*|G,' AND AL ■*,G) 

WRITEC20, 1954) 

1954 FORMATC//' XI S 7X , 'RSIGF' ) 

SIGF2 » SiGFttSIGF 

DO 500 TsO.MAOFF 
XI a DELX»I 

RSIGF a SIGF2#RWH2CI)/CRWHC0)**2+2 .#RWH(I)#rwHCI) ) 

IF (RSIGF, LT'., 0001) GO TO 501 

500 WRlTE(20,2)XIf RSIGF 

501 END file 20 
C 

c DO PART 6# PHICSIGF) 

C 

TYPE 3 

3 FORMATC' INPUT M AND POWER OF 2 •#/$) 

ACCEPT 1750,MPTS,MpwRM 
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non o rj o 


C 


PI > 3.141S92654 
RWH02 s RWH(0)*RWH(0) 

FTMl • MPTS#DEIX 
DO 13 J»0#MPT5 

Apo a de:lx«j 

CC a PI»ARG/FTM1 
OP a l,»ARa/FTMl 
EE a ABsCSINcCCn 
WINDO m EE/pIiDD#COS(CC) 

RTP a RWH02+2,»RWH( J)#RWHf J) 

13 AUT(2»J) a ( f RttH2( J)*RTP1 /RTP)aWlNDO 
M2PWR a MP$RM+1 

M2PTS a 2aMPTS 
FT2M a 2>ETM1 
MMINl » MPtSiil 
DO 14 JKai, MMINl 
KK a M2PTS*JK 

14 AUT(2»KK) tt AUT(2#JK) 

DO 521 K«1.2«M2PTS*1i2 

521 AUT(K) « 0.0 

COMPUTE smoothed POWEp SPECTRUM 

CALL CFFT(M2PWR,M2PTS,AtTT,2) 

PRINT data FILE *PHIF^ 

CALL OFlLEe20f *PHIF») 

WRlTE(20,9in 
WRITE( 20, 901 ) 

901 FORMATCZ/lX^^SMOOTHED POWER SPECTRUM PHI OF SIGMA SORD F(K)*) 

WRITEC20, 1906) MPTS, FTMl 

1906 FORMAT(/lX,I5r * DATA POINTS WERE USED IN M * '.Fie.A,' FT,') 

WPITEC20, 1905)RWH(0) TO FORMAT STATEMENT 901 

1905 FORMAT!' RWH(0) a ',G) 

WRITE(20,902) [/(X,» WITH FILTER CUT-OFF= ’ , 

MHALF 3 MPTS/2 G,’M**-1')] 

M41 a MhaLF*! 

DELK » 1./FT2M 
DO 56 I«0,M41 
DEL a DELK#I 

XX a AUT(2#I)*FT2MasIGF*SlGF 
K a MHALFfl 
DEL2 a DELK*K 

YY a AUT(2#K)*FT2 M#sIGF#SIGF 
56 WRITEC20,903)DEL,XX,DEL2»YY 

DEL3 a DELKaMPTS 
ZZ a AUTC2#MPTS)#FT2 M#SIGf*SIGF 
WRITE! 20, 908 )DEL3,ZZ 
END FILE 20 
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c 

902 rORMAT(//lXr 'PPINTOUT OF VAliUES Of THE SMOOTHED', 

1 * POWER 5PECTPUMS/5X, 'K',10X, 'SPS VALUE', 8X,'K CONTD', 

2 4X,'SPS VALUE CONTD',/) 

908 FOPMAT(29X,F10.4#3X,E12.4) 

900 format(//ix, 'Data file created by program atupb4') 

903 FORMATaXfF10,6,3XiEl2«4#3X,F10.«J,3XfE12.4) 

906 FORMAT(//lJt,I6,' DATA POINTS WERE USED IN 2L pr ',FJ5,4, 
1 f HETER',/!X,I5,' DATA POJNTS WERE USED IN M n '#Fl6.4, 

1 ' METER') 

907 F0RMAT(//1X,I6, ' ZErOs WErE ADDED TO DATAM 

910 FORMAT(//lX, 'MEAN VALUE OF WfX) • ',E15,5,' M/SEC', /IX, 

1 'MEAN 5Q. YALUE » SElS.S.' (M/5EC5«*20 

911 FORMATC' DATA FILE CREATED BY PROGRAM ITEMS*) 

c- 

END 
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Program ITEM4 


ri o o 


c program ITKM4 ,PART 6 ATMOS. TURBULENCE PHASE II 

C 

DIMENSION ALWF(8)rALWS(0/8I# ALPHWHfg) f PROBC0/100) 
dimension ALPHW(8) 

C 

TYPE 1 

1 FORMATC* input ALPHwH.ALPHW (8 VALUES) S/A) 
accept 2# ALpHWH(U#ALpHWf n 

accept 2»ALPHWH(2)» ALPHWf2) 

ACCEPT 2» ALPHWH(3).ALPHWC3) 

ACCEPT 2#AtPHWH(4), ALpHWM) 

ACCEPT 2, ALPHWHC5), ALPHWfS) 

ACCEPT 2,ALPHWH(6)f ALPHWfS) 

ACCEPT 2# ALPHWHC7). ALPHwh) 
accept 2#At,pHWH(0), ALpHWfB) 

C 

2 rORMAT(2G) 

TYPE 3 

3 rORMATC' INPUT STGMa SORD F '.$) 

ACCEPT 2,$TG 

C 

AK ■ CSIG/ALPHWHf 2) )»#.5 
DO 100 K m i,B 

100 ALWF(K) * f AK##K)#ALPHWH(K) 

ALWSfO) 9 1,0 
DO 110 N » 1,8 
SUM a 0,0 

DO 120 Kp0,N*1 
CALL FAC1CN,K,ANK) 

120 SUM 9 SUM ♦ ANK#ALWF(N*K>#ALWS(K) 

110 ALWSfN) B ALPHW(N) • SUM 

COMPUTE PROS density FN 

TYPE 8 

8 format(' pros density FN.») 

DELWS » .UtSQRTCALpHWHC2)»ALPHWH(l)#ALPHWH(ln) 

SIGNS B ALwSC2)*#.5 

TWOSG b 2,4sIGWS#SIGWS 

Cl » 1 ./((*, *3. 14159265)##. 5»SIGW5) 

SIG3 « SIGWS##3 
SIG4 * SIGWS##4 
SIG2 B S1GWS##2 
C 

DO 130 IB0.100 
WS B DELWSbI 
WS2 B ws#ws 
WS3 B W$2#WS 
NS4 b WS3#WS 
EX ■ •(WS2/TWOSG) 
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130 PROBfl) ■ ei#EXP(EX5#( nUcAtiWSC3)«(WS3/8IG3* 

1 3.»WS/SlGwS)/t6>SlG3) )+((f ALW5(4)/SIG45*3.)» 

2 fW54/SIG4»6,*WS2/SlG2+l«n/24,n 
GAMl R ALWSt3)/(ALWst2)#»e3./2'.)) 

GAM2 m CAL0S(4)/f ALwS(2)*#2n»3, 

C 

c 

C PPtNT Out values of PPOBA0ILITYE 

C 

CALL OFlLEe20# 'PROB*) 

WP1TE(20,900) 

900 rORMATC^ data FILE CREATED BY PROGRAM ITEM4',/lXf 
I * ATMOSPHERIC turbulence TAS*C, PHASE IIM 

WP1TE(20,901)SIG 

901 FORMATC* for sigma SORD F ■SG#//1X,*THE VALUES OF ALPHA *, 

1 ♦OP WS AREiM 

DO 170 N»l.8 

170 WPlTE(20,902)Hf ALWS(N) 

902 F0RMAT(» N ■•^13, ♦alpha WS a'.G) 

WP1TE(20,903) 

903 formats //IX, ♦the probability density FM, ISi* 

1 /7X,'WS%1SX#*PCWS)M 

DO 190 Ia0.100 
WS u delwsri 

180 WPlTE(20,904)WS,PPOB(n 

904 FORMATaXrO,2X»G) 

WRITEC20, 905) GAMl ,G aM2 

905 FORMATC//IX, •coefficient OF SKEWNESS P*,G,/1X, 

I ♦coefficient of excess ■♦,G) 
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Program MOMENT 
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c progri^h moment atmospheric turbulence phase n 

c ITEM 4 Parts 1-4 

c CALL subroutines BIN ( SQ^ • HPDES 

C 

COMMON/AA/RINI (501), BlN2C50n # total, NBTN,SINW,NPTS 
COMMON/6b/R 1N3(700),TOT1 ,NBIN1 ,BINWl ,NPT51 
COMMON/CC/A(3)#B(3),C(3)#GR(2# 1B)#F(4,3) 

C 

DIMENSION 0(8), ALSIGfS) 

DIMENSION ALWSC0/8) 

DIMENSION W ( 0/15000) , aLPHw( 8) tALPHWHC 8) # ALPwH2(8) 

C 

C READ IN w(t) data 

C 

TYPE I 

1 rORMATC' INPUT NO. OF DATA POINTS^,$) 

ACCEPT 2,NpTS 
7 F0RMATC3G) 

type 3 

3 FORMAT(» INPUT DATA RECORD NAME *,S) 

ACCEPT 4.FLE 

4 F0RMATCA5) 

C 

c READ IN FILE AND CONVERT TO METERS 

C 

CALL 1FILE^20iFLE) 

NXl » NpTS/4 
DO 550 ts0,NXi*l 

READ(20,55l)W<n,W(I + NXn,W(T + 2*NXl )»W(I + 3#NXn 
Wd^NXl) « W(l + Nxn*.3048 
W(Tf 2 *Nxi) • W(I + 2*NXI )#*^3048 
W(I + 3*Nxn m W(I + 3#NXn#,3048 

550 W(I) » W(I)*.3048 

551 FOPMAT(4(E)5'.7n 
END FILE 20 

C 

C SUBTRACT OUT MEAN 

c 

WBAR w 0‘,0 

DO 6!0 OJ s 0#NPTS-1 

610 WBAR » WBAr+W(JJ) 

WBAR • WBAR/FLOAT(NpfS) 

DO 611 I*0,NpTS»l 

611 Wfl) « W(I)»WBAR 
C 

C COMPUTE bins 

c 

CALL BiNfW) 

C 

C COMPUTE MOMENTS OF W(T) 



4- ^ DOOOO 


BINHF » BlNW/2', 

NBIN2 • NBlN/2 

C 

TYPE 900 

900 FORMATC' MOMENTS OF W(X) h 
00 !0 KslrS 

SUM m 0.0 
DO 20 J«IiNBIN 2 
WMIDl » fBINw#J.BINMF)#*K 
WMID2 s f BlNw»r *J)+BTNHn#*K 
20 SUM s SUM + WMlOl#BlNt C J) f WMI02*BJN2 ( J) 

AliPHW(K) s SUM/TOTAL 
10 TYPE 901 ,K, ALPHWfK) 

901 FORMAT(» K ALPHw a 

FILTER WfT5 AND COMpUTE MOMENTS 
filter W(T) 

TYPE 9 

FORMATC' input CUT*0FF FREQ# sampling INTERVAL#* 
1 *N0. OF FILTER SECTIONS *. >S ) 

ACCEPT 2#Fe#TS.NS 
CALL HPDES^FC#TS#NS1 
DO 140 Nsl,NS+l 
DO 140 Mb1,2 
40 F(N,M) 8 0> 

DO 150 M*0,NPTS»1 
F(l,3) 8 WfM) 

DO 160 Nrl.NS 

temp s AfN)#(F(N,3)*2.#FfN#2)+F(N#})) 

60 F(N+1,3) e TEMp»B(N)#FCN4l f 21»C(N)#F(N+1# n 

DO 170 Nal,Ns+l 
DO 170 MMsi,2 

70 F(N,MM) « F(N,MMil) 

50 W(M) n F(NS+1#3) 

MOMENTS OF WH 

type 5 

5 FORMATC* moments OF FILTERED W*) 

C 

CALL BiNfWl 
BINHF * BlNW/2'. 

NBIN2 a NBlN/2 

C 

DO 30 K8l#B 

SUM a 0> 

no 40 J * 1#NBIN2 

WMIDl a (BTNw*J»01NHF1##K 

WMID2 a f B1NW»(-J)4BINHF)##K 
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40 

30 

902 

C 

c 

c 

50 

c 

c 

c 

6 

C 


c 

c 


70 

60 

903 

C 

C 

c 


905 

C 

7 

C 


00 

904 

C 


SUM « SUM ♦ WMID1*BTN1(J5 ♦ WMID2#BIN2 ( J) 

ALPHWH(K) « SUM/TOTAL 

type 902,K. AI/PHWHCK) 

rORMATC' K ALPHWH »',G) 

compute part 3 

DO 50 l»0,NPTS*l 
W(I) a WfI)#W(X) 

COMPUTE Bl«S 

TYPE 6 

FORMATC' compute MOMENTS FOP W#W^) 

NpTSl a NPtS 
CALL BlNsOfW) 

BINHF * BJNWJ/2. 

DO 60 Ke1,4 

SUM « 0.0 

DO 70 JsljWBTNl 

WMXD * (PINW1«J»BINHF)##K 

SUM 8 SUM 4 WMID#BTN3(J) 

ALPWH2(K) m SUM/tOtI 
type 903#K. ALPWH2(K) 
rORMATC' K ALPHVT2 

PART4^ moments OF SIGMA SQRO F 

D(l) a r. 

0(2) a 3 ; 

D(3) a 15. 

D(4) a 105*. 

D(5) a 945*. 

D(6) a 10395'. 

D(7) a 135135* 

D(8) a 2027025. 

TYPE 905 

FORMAT(* compute MOMENTS OF SIGMA SORD F») 
type 7 

FORMATC' INPUT SIG SORD F 
ACCEPT 2. SIG 

DO 80 N«t*S 

ALSIG(N) 5 C(SIG/ALPWH2(1.))#*N)#ALPWH2(N)/D(N) 
type 904.N. ALSIG(N) 

FORMATC^ N a»,I3.' ALSXG a*,G) 
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Subroutine PARI 



r>o o 


SUBROUTINE PARl(AKZ) 

CALL SIMQ, forms eon Y##2+0X+EY+F m 0,0 

COMMON/BB/XC 3 ) # AKI ( 3 ) , XPL 
DIMENSION f(3), A{9),B(3) 

E0UIVALENCE(Y#AKI) 

C 

YMIO m AKIf2) 

DO 20 

BCJ) P •Y(J)P»2 
20 ACJ) P X(J) 

C 

DO 25 K»4,S 
25 A(K) m YCK-3) 

A ( 7 ) m I , 

ACR) « 1. 

A(9) * 1. 

C 

KK P 0 
C 

CALL SlMQtA,B,3,KK) 

C 

IF (KK.EO.n TYPE 5l8 

918 FORMAT(» K w 1 IN SlMQf SINGULAR SOLUTION m BAD') 

C 

D m BCD 
E m B(2) 

F P B(3) 

AK2 « C«2,»XPL*E) /D 

C 

RETURN 

C 

END 
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Subroutine PAR2 
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I 


SUBROUTINE PARABfAKz) 

C 

C CALLS SIMO, FORMS EqN Y## 2 +DX^-EY + F m 0.0 

C 

COMMON /BB/)e C 3 ) # AKI ( 3 ) . XPL 
DIMENSION V(3)#AC9),B(3) 

EOnlVALENCECY^X) 

C 

IF (AKI(2)1eO,AKI(3)) AK2 m AKIC2) 

IF (AKIC2) .E0.AKTC3) ) GO TO 40 
DO 20 Jvlfl 
B(J) m -YCa)##? 

20 A(J) * AKIfJ) 

C 

DO 25 K:f4f5 
25 A(K) ■ Y(K,3) 

AC7) ■ i\ 

ACS) m 1 . 

AC9) « 1. 

C 

KK « 0 
C 

CALL SlMOCAtB, 3,KK) 

C 

IF CKK’.EO.n TYPE 5 1 8 , X ( 1 ) . AKI f I 5 . XPL 

518 formatc* k « I in simo^ singular solution 

1 *AKI(n*»,G.^XPL b',G) 

C 

D B BCD 
E m Bf2) 

F m B(3) 

AKZ » (-XPL#XPL*E#XpL.F)>D 
C 
C 
C 

40 RETURN 

END 


BADS/IX* 
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Subroutine PARAB 



o no 


C <RFlSHE:p>PARABi,F4|6 UNoV.77 10|06i33 EDIT BY RFISHER 

SUBROUTINE PARAB(AKz) 

CALL SIMO, FORMS EQM Y#»2+DX+EY+F ■ 0,0 

C0MM0N/BB/X(3),AKI(3),XPL 
DIMENSION f (3),AC9),BC3) 

EOUIVALENCECY# AKI) 

c 

YMID ■ AKI?2) 

DO 20 

BCJ) P •Y(J)#*2 
20 A(J) m X(J) 

c- 

DO 25 Kp 4,S 
25 ACK) p YtKil) 

A(7) P 1. 

ACS) p 1^ 

A(9) m 1. 

C 

KK p 0 
C 

CALL SIMQ(A,B,3,KK) 

C 

IF (KK'.EQ.l) TYPE 5l8 

510 FOpMAT(^ K « 1 IN SIMOI SINGULAR SOLUTION p BAD*) 

C 

D p BCD 
E p B(2) 

F p B(3) 

CONST p F ♦ D#XPL 

AKZl p C«E « CE#E*4^#CONST)*#j.5)>2^ 

AKZ2 P (-E + (E#F*4.#CONsT)##,5)>2. 

DIFl p ABSf AKZI.YMID) 

DIF2 P ABSfAKZ2-YMTD) 

AKZ P AKZ2 

IF (DIFZ.GT.DIFI) AKZ p AKZl 
C 

RETURN 

C 

END 
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Program PART2 
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c PROGRAM PART2. ATMOSPHERIC TURBULENCE TASK 

C ITEM 1, PARTS 2«3,4.5,6,7. AND 8*. PHASE II OF ATMOS- 

C PHERIC turbulence 

C mean value subtracted from data BEFORE COMPUTING SPECTRUM 

c maximum likelihood estimation or integral scale of vertical 

c component of stationary sample 

c 

c reads in PSD from File PHILK (produced by ATURB2,F4) 

c produces data FILESi 

c LGi VALUES OF LG(KiL) PART4,ITEM1 

C PHIXII values of phi OF K(Xn» VON-KARMEN AUTO» 

c correlation FN,, part 7, ITEM 1 

c PHTKI values of phi of K(K)» part 8, ITEM 1 

c 

c REQUIRES SUBROUTINES GAM AND AK 

C SUBRp AK REQUIRES PARAB, AKOat. SIMQ 

C 

dimension PHIKTC6500) ,DVSR(4} ,E(20i # ALVC20) , ALKI2(6500) 
DIMENSION WC0/6500) 

C 

c input initial parameters 

c 

type 1 

1 F0RMAT(/1X, ♦INPUT Nbl OF POINTS TO BE READ, DELK , OELX • , /8 ) 

accept 17B0,NPT5,DELK,OELX 
1750 FORMATOG) 

c 

c INPUT VALUES OF PHI OF L(K1 

C 

CALL IFILE (20,»PHIlK#) 

READ(20,900) 

READ(20,950)FLE 

950 F0RMAT(/1X, 'POWER SpECTRUM OF PHl OF LCK)',/1X. 

I 'DATA TAKEN FROM FILE ',A5^ 

READ(20,908)NX2J,TWOL,MpTS,FTMl 
RB:AD(20,907)M2ERO 
READ(20,910)WBAR, VAr 
BEAD( 20,95l)WSUM 

951 FOrMAT(/ 1X. '<W OF L(X)«#2> ■ ',Fl2'.45 

READ(20,952) 

952 FORMATC//1X, 'PRINTOUT OF THE VALUES OF THE POWER SPECTRUM*, 

1 yiX,5X, 'K', 10X, 'PS VALUE', 8X,*K CONTO ' , 4X, *PS VALUE CONTD*#/) 
DO 823 Ia0,NPTS 
PEAD(20,903)DEL,W(I) ,DEL2, YY 
823 CONTINUE 

END FILE 20 
C 

C START PART2I COMPUTE INTEGRAL SCALE OF L USING EON FOR E(L) 

C 

1040 TYPE 1500. 

1500 rORMATC* INPUT N,L, 6 STEP SIZE OF L *,/$5 

ACCEPT 1750,N, ALVdl,STPL 
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c 

AN K FLOATfN) 

C116 ■ 11. /6. 

DVSRfl) ■ 1, 

DVSFf2) PF 1, 

DVSRf3) m 10. 
nvSR(4) 9 10. 

C 

NDX « 0 
C 

1030 NDX • NDX ♦ 1 
H!(NDX) ■ 0*.0 
C 

SUMl s 0.0 

DO 1020 JJllfN 

ALKI2CJJ) » CALV(NDy^#DELK#JJ)##2 

PHIKTCJJ) • (r. + lB8.75#ALKI2(JJ)Wf 1. + 70.78»ALKI2(JJ))##C116 
1020 SUMl m SUMl + WC JJ1/PHIKT( JJl 
DO 1010 lafl.N 

GKIL m ll7*.97#ALKI2f n#cr.»l88'.7‘i#ALKI2(in>^ 

1 CALV(NDX)»(r. + 70.78*AtKI2f in#(l. + l88,75#ALKl2(in) 

1010 F(NDX) u EfNDX) ♦ GKIL# ( f SUMl /AN) •( W( I) /PHIKT ( I) )) 

E(NDX) « EfNDX)/AN 
TYPE 1525, NDX, E(NDXl 
1525 FORMATC' on ',13,' PASS F »',G) 

C 

c PICK NEW h FOR SECOND AND 4TH PASS 

C 

IF (E(NDX) .LT,0,0) AlVfNDX+l) * ALV(NDX) ♦ STpL/DVSR C NDX) 

IF (E(NDX) .GT.0,0) AtVCNDX+l) « ALV(NDX) • STPL/DVSRCNDX) 

C 

c USE linear interpolation for NOX ■ 2 or 4 

C 

IF (NDX, eg 1) GO TO 1030 
IF (NOX, EG. 3) GO TO 1030 
type 1503 

1503 F0RMAT(' are there pOs*. AND NEG, E*»S CY OR N) ',$) 
accept 807, ANS 
807 FORMATCA5) 

IF (ANS,EQ>Nn GO tO 1040 
C 

c DO LINEAR INTERPOLATION 

C 

ALV(N0X4-1) ■ (ALV(NDX)#(»E(NDX»l))4ALV(NOX»n*ECNDX)5/ 

1 (E(NDX)-E(NDX-n) 

TYPE 1502, NDX, ALVCNOX+n 

1502 FORMATC' for ',12,' PASS INtERPOLATTED L »',G) 

IF (NDX,EQ12) go to 1030 
C 

C FINAL L HAS BEEN SELECTED AFTER 4 PASSES 

C 

ALF m ALV(NDX4l) 
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c 

C PART 4 , COMPUTE liCfKlfLl 

C 

CALL OFILEr20#'LG») 

WRITE(20, l507)ALr 

1507 formatc* Output of item i, part a, phase ii atmoI turb'.*# 

1 /lXt<^CREATEO BY PROGRAM PART2^,/IX# 

2 * FOR L METErS^,/IX# • K* , 7X. 'LG', 7X. CONTD',SX, 

3 'LG CONTO') 

NH2 m N/2 

DO 1050 II m t,NH2 
AKK « DELK^II 
AKTL m ALF#AKE 
AKl « DELK#(NH2 + in 
AKIL3 m ALf»AKi 
AKTL2 ■ AKTL#AKIL 
AKTL4 a AKIL3*AKIL3 

ALG a (ll7l97#AKIL2#Cl.»108'p75*AiaL2))/ 

1 f Cl. + 70,78#AKlL2)#'f lUj80.75#AKIL2)) 

ALG2 a (U7,97#AKIL4*C1,«*188.75*AKIL4))/ 

1 C(l, + 70,78#AKiL4)#f r. + 188,75#AKIL4)) 

1050 WRITEC20, li05)AKZ, ALG, AKl , ALG2 

1505 F0RMAT(4G) 

end file 20 
c 
c 

type 1506 

1506 FORMAK* continue Or ABORT? CC OR A) ',$) 
accept 007. goon 

IF CGOON.EO.'A') GO TO 9999 
C 

C DO PART 5 

C 

SIG2 a 0,0 
DO 1060 Ial,N 

1060 SIG2 a SIG2 ♦ W( I ) /'( ALF^PHIKT ( I) 1 
SIG2 aSIG2/AN 
TYPE 1508, SIG2 

1508 FORMATC* S1G2 a'.Gl 

C 

C CONTINUE 7 

C 

TYPE 1506 
accept 807. goon 
IF (GOON.EO.'A*) go TO 9999 
C 

C PART 1, REQUIRES SUBROUTINES GAM AND AK 

C 

CALL OFILEf2l# 'PHIXI') 

WRITE (20f^lS) 

WRITEC20,lft2)SlG2 
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non 


1512 PORMat(/IX, 'OUTPUT FOR PART 7 OF ITEM I, PHASE tI',/lX, 

1 'CALCULATIONS OF VON-KAPMEN AUTOCORRELATION FN',/1X, 

2 'SIGMA SQRO P'#G) 

WRITE (20#l$ll) 

1511 .FORWATf' XlS5X,'pHIfxn'#5X#'Xl CONTDS5X, 'PHIf XI) CONTD') 
PI » 3.14159265 
C43 m 4,/3' 

CALL GAM(C116,G1) 

CALL GAMrC43#G2) 

GAM13 m 12,67893853 

BETA ■ 2.*G1»(PI#».5)/C5' #G2) 

AFG « beta/alf 
C13 « 1./31 
C23 P 2,/3, 

C13 ■ 1./3. 

CONST « SIG2#(2,##C23)/GAM13 

DO 1070 I»1,NH2 

El P DELX*I 

E2 B DELX*fI+NH2) 

eta a El#ApG 

ETA2 a E2#AFG 

TF (ETA,GTl5.,0R;ETA.LT'/.nTypE 1515,ETA 
CALL AKn,ETA,AKl) 

CALL AK(2#ETA, AK2) 

CALL AK(1,ETA2# AK3) 

CALL AK(2#ETA2# AK4) 

PHXK a C0 Nst#(FTA#*C 1 3)#f AKl»AK2*ETA/2’,) 

PHIK2 a C0NST#(ETA2##C13)#(AK3 pAK4#ETA2/2.) 

1070 WRTTE(20, 1505) El ,P kIK#E2,PHTK2 

1515 FORMatC' eta «SG,' which IS OUT OF RANGE FOR AK SUBR,') 

END FILE 20 

PART 8 

CALL OFlLEf 20, 'PHIK#) 
wrTTE(20,915) 

WFITEf 20, 1595) ALF,SIG2 
1595 FOpMATf /IX, 'OUTPUT FOT PART 8 OF ITEM 1, PHASE II', /IX# 

1 'CALCULATIONS OF PHl K WITH L a',G,'AND SIG SORD a',G) 
WRITE(20, I5l4) 

1514 FORMaT(' K',5X, 'PHiK',7X, 'K CONTD ' , 5X, 'PHIK CONTO') 

CONSl a SIG2#ALF 
STEP a OELK#ALF 
NPTS2 • NPTS/2 
DO 1060 I«1,NPTS2 
AK0 a DELK#I 
AKl « DELK#(I>NPTS2) 

AK2 a (STEp#I)#(STEp#I) 

AK4 a tSTEp#(I+NPTS2J )##2 

PHIK a C0NS1#(1, 4-188, 75#AK2)/caU70',78#AK2)«#C116) 

PHIK2 a CONSHKr. + l88'.75*AK4)/t(l,T70,78#AK4)»#Cll6) 


208 



1090 WRlTE(20,li05)AK0,PHlK, AK1.PHIK2 
END FILE 20 
C 
C 

900 rORMAT(//lX, ^DATA FILE CREATED BY PROGRAM ATURB2*) 

915 FORMATC//1X, 'DATA FILE CREATED BY PROGRAM PART2M 

903 FORMAT(lX#Fl0,5#3X»El2,4.3X,F10,«,3XiE12*.4) 

906 F0RMAT(//1X»I6, • DAtA POINTS WERE USED IN 2L « •,F19,4 

1 • METERS, /1X#I5, ' data POINTS WERE USED IN M » '.FUMf 

1 * METER') 

907 FORMAT(//ljC#I6f ' ZErOS WERE ADDED TO DATA') 

908 FORMAT(29X,ri0.4,3X,E12.4) 

910 FORMAT(//lXf 'MEAN VALUE OF W(X) ■ SE15.5,' M/SEC',/lXf 

I 'MEAN SO. VALUE ■ ',E15.5.' f M/SEC ) ' ) 

C 

c 

9999 END 
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Program PARTS 



c PROGRAM ITKM2, ATMOSPHERIC TURBULENCE TASK 

C ITEM 2# part 5. PHASE II OF ATMOS* 

C PHERIC TURBULENCE 

C mean value subtracted from data before computing SPECTRUM 

C COMPONENT WITH LOW FREQUENCY CONTAMINATION 

C 
C 

C DATA FILES READ BY PROGRAM ARE I 

C PHILKi input PSD FROM ATtIRB2*,F4 

C 
C 

DIMENSION W(0/1300O) . AL(151,SIG2(15) 

C 

C INPUT INITIAL parameters 

c 

TYPE 1001 

1001 FORMATC/IX. *INPUT No. OF POINTS TO BE READ# OELK, DELXS /$ ) 
accept 1750#M41#DELK,DELX 

1750 FORMATOG) 

TYPE 1751 

1751 FORMATt' Is RECORD TRANSVERSE OR LONGITUDIONAL (T OR L) 
accept 807. which 

807 FORMATCA5) 

C 

c INPUT VALUES OF PHI OF LfK) 

C 

CALL IFILE (20#*PHIlK») 

READC20#900) 

READ(20#950)FLE 

950 FORMatC/IX. 'POWER SpECTRUM OF PHI OF L(K1*,/1X. 

1 'DATA TAKEN FROM FILE '.A5^ 

READ(20,90S)NPTS#Tw 6L.MPTS»FTM1 
READ(20#907)MEERO 
READf 20#91 O)WBAR.VAr 
READC20#951)WSUM 

951 F0RMAT(/1X.'<W OF L(X)#*2> n '.F12.4) 

READ(20#952) 

952 F0RMAT(//IX, 'PRINTOUT OF THE VALUES OF THE POWER SPECTRUM', 

1 /1X,5X,'K'.10X,'P5 VALUE', 8X#'K CONTD' , 4X, 'PS VALUE CONXD',/) 

MHALF P NPtS/4 
MSI P MHALF-1 
DO 823 IP0.M51 
Km MHALF+T 

IF CK.GE.M4l) KPM4U1 
823 READ(20,903)DEL,W(I)#DEL2.WCK) 

END FILE 20 
C 
C 
C 

type 1500 

1500 FORMATC' INPUT KLfKUtN './$) 

accept 1752,KL,KU,N 
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1752 rORMATOG) 

C 

1010 TYPE 1503 

1503 FOPHATC* INPUT J,L %$) 

accept 1752 ,a,AL(J) 

\IMAX m J 

C 

c no PART 5 

c 

AN « FLOAT(N) 

C 116 K 11 ./ 6 . 

C 56 * 5 ./ 6 *. 

SIG 2 {J 1 m 0.0 

DO 1060 InKL^KU 

ALKI 2 » (AL(J)»DCLK#I )##7 

PHIK s 2 ’,/f 1 ,+ 70 ', 78 #ALKI 2 )##C 56 

IF (WHICH,KO,»T»)PHlK*(r. + 188 '. 75 #ALKI 2 )/ 

1 Cr.+70,7e#ALKI2l##Cil6 

1060 SIG2(J) m SIG2(J) + W( I) /( AL( J)»PHTK) 

STG 2 (J) sSIG 2 (J)/AN 
type 1508 # J, 51 G 2 (J) 

1508 FORMATC* for 0 «'#I 3 »' SIG 2 «'.G) 

C 

type 1502 

1502 FORMatC' pick ANOTHER J#L (Y pR N) 
accept 807 , AJL 
IF ( AvTL.EQ’.^yn GO TO 1010 

900 F 0 RHAT(// 1 X# 'DATA FILE CREATED BY PROGRAM ATURB 3 ') 

903 FORMATClX,F 10 . 6 , 3 X,El 2 . 4 . 3 X,F 10 , 5 # 3 XfE 12 . 4 ) 

906 F 0 PMATC// 1 X# 16 # » DATA POINTS WERE USED IN 2 L a •,F 15 , 4 # 
1 * METER'#/ 1 X#I 5 # • DATA POINTS WERE USED IN M a SFUU# 

I • METER') 

907 F 0 RMATf//lX#I 6 #' ZErOS WFRE ADDED TO DATA') 

910 FORMATf //lx # 'mean VaLuE OF W(X) a '#E 15 , 5 ,' M/sEC',/lX# 

1 'MEAN SO. VALUE a '.E15.5.* (M/SEC)#»2') 

END 
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Subroutine SIMP2 



O O O o 


SUBPOUTINE simp, uses SIMPSON'S PUI^E TO DO iNTEGPAliSi 
H « spacing between values 

NPTS « NO, OF points TO BE COVERED, WpARRAY CONT* 
aiming values to be integrated, ANS « integral of W(I) 

SUBROUTINE SlMP(H, NpTS, W. ANS) 

c 

DIMENSION WC0/500) 

C 

ARC « H/3, 

ANSI s 0.0 

DO 10 I»1,NPTS*3,2 

10 ANSI m ANSI + 4,#W(x) 

ANS2 c 0.0 

DO 11 I»2,MPTS-2,2 

11 ANS2 « ANS2 2.«W(t) 

ANS « (ANS2+ANSl^W(0)+W(NPTS»n )#ARG 
C 

RETURN 

C 

END 
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Subroutine SIMP 



fi oo n n 


SUBROUTINE SIMP, USES SIMpsON'S RUl/E TO 00 INTECPAOsI 
A a starting VALUEt B« END VALUE, H m SPACING BETWEEN 
VALUES# NPTS ■ NO, OF POINTS TO RE COVERED# WaARRAY CONf## 
aiming VALUES TO BE INTEGRATED, ANS « INTEGRAL OF Wfl) 

SUBROUTINE SiMP ( A#B, H, NpTS. ANS) 

C 

COMMON/SG/W (0/655 37 1 
C 

ARG ■ H/3, 

ansi ■ 0,0 

DO 10 I»1,NPTS-3#2 

10 ANSI ■ ANSI + 4,»W(2*n 
ANS2 a 0'.0 

00 11 Ia2#NPT5*2,2 

11 ANS2 a ANS2 + 2.#W(2*I) 

ANS a ( ANS2+ANSUW(0)+W(2#NPTS«»2))#ARG 
C 

RETURN 

C 

END 
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Subroutine SIMQ 
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ooonoooorioooooooooofirioooooooooooorioooooooooooooo 


SUBROUTINE SIMQ 
PURPOSE 

obtain solution of a SET OF SIMULTANEOUS LINEAR EQUATIONS# 
AX«B 


usage 

CALL sXMQ(A#B#N,K5) 

DESCRIPTION OF PARAMETERS 

A - Matrix of coefficients stored columnwise, these are 

DESTROYED IN THE COMPUTATION, THE SIZE OF MATRIX A IS 
N BY N, 

B « Vector of original constants (length n), these are 
Replaced by final solution values# vector x, 

N • Number of equations and variables, n must be ,gt, one, 

KS • OUTPUT DIGIT 

0 FOR A normal solution 

1 FOR A SINGULAR SET OF EQUATIONS 


remarks 

Matrix a must be general, 

IF matrix is singular , solution VALUES ARE MEANINGLESS, 

AN ALTERNATIVE SOLUTION MAY BE OBTAINED BY USING MATRIX 

Inversion cminv) and matrix product cgmprd), 

subroutines AND FUNCTION SUBPROGRAMS REQUIRED 
NONE 

method 

method of solution is BY ELIMINATION USING LARGEST PIVOTAL 
DIVISOR, EACH STAGE OF ELIMINATION CONSISTS OF INTERCHANGING 
ROWS when necessary TO AVOID DIVISION BY ZERO OR SMALL 
ELEMENTS, 

THE Forward solution to obtain variable n is done in 
N stages, the back SOLUTION FOR THE OTHER VARIABLES IS 
calculated by SUCCESSIVE SUBSTITUTIONS, FINAL SOLUTION 

Values are developed in vector b# with variable i in bcd# 

VARIABLE 2 IN 8(2)#,,,,,,,,# VARIABLE N IN 8CN), 

IF NO PIVOT can be found EXCEEDING A TOLERANCE OF 0,0# 

THE Matrix is considered singular and ks is set to i. this 

tolerance CAN BE MODIFIED BY REPLACING THE FIRST STATEMENT, 


subroutine sIMqcA#B#N,KS) 

DIMENSION A(l),B(l) 
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c forward solution 

c 

TOL»0,0 
KS»0 
JJ«»N 
DO 65 
jy»j+i 
JJ-JJ+N+1 
B1GA«0 
IT* JJ» J 
DO 30 I»J,N 

search Fob maximum coefficient in column 

IJ*IT+I 

IFCABSCBIGA)-ABS(ACIJ) ) ) 20, 30 f 30 
20 BIGAsAClJ) 

IMAX«I 
30 continue 

TEST FOR pivot LESS THAN TOLERANCE (SINGULAR MATRIX) 

IF(ABSCBIGA)-TOL) 35,35,40 
35 KS«1 
RETURN 

interchange rows IF NECESSARY 
40 Tl»J+N#(J-2) 

it*imax-j 

DO 50 KaJ,N 
Il»IUN 
I2SI1+1T 
SAVEsACin 
A(n)BA(I2) 

A( 12)aSAVE 

DIVIDE Equation by leading coefficient 

50 A(inaA(Il)/BIGA 
SAVE»B(IMAX) 

BCIMAX)»B(0) 

BC J)*SAVE/BiGA 

eliminate next variable 

IFCJ-N) 55#70,55 
55 IQ5*N#CJ«n 
DO 65 IX*JY,N 
IXJ«IQS+IX 
IT*J-IX 
DO 60 JX*JY,N 
IXJX*N*C JX-1 )+IX 
JJX«IXJX+IT 

60 ACIXJX)«A(IXJX)^CACIXJ)«ACJJX) ) 

65 BClX)aB(IX)-(B(J)*A(lXJ)) 
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back solution 


70 NysN^l 
IT«N*N 
DO 80 Jsl 
IA«IT-J 
IB»N*J 
IC = N 

DO 80 Ksl,J 

ia«ia-n 
80 IC»IC-1 
RETURN 
END 
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Subroutine TRAPS 



CJ U CJ 


C <RFlSHf;R>TRAP2,r4f I UNoV.77 10|09|04 EDIT BY RFISHCR 

SUBROUTINE TRAP2CA.I) 

integrals by trap, rule 

COMMON/TR2/DELX,NXlH#Al2Tf 0/290) 

C 

AZ « 0.0 

DO 10 t«lrNXlH*l 
10 AI ■ AI > AI2ICI) 

AI m .5»AI21(0) ♦ I2I C NXIH) ♦ AI 

At ■ AltDELX 
C 

RETURN 

C 

END 
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Subroutine TRAP6 
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C <pFISHEp>TRAP5.F4jl l-NoV«77 10|09|04 EDIT BY RFISHER 

SUBROUTINE TRAP5(Al5 

INTEGRALS BY TRAP, RULE 

COMMON/TR5/DELXl,NXlHl,AI5lt 0/290) 

C 

A1 * 0.0 

DO 10 I»1,NXIHI-1 
10 AI « AI ♦ AI5ICI) 

AI m ,5*AI^I(0) + .5*AI5T(NXIH1) + AI 
A1 ■ At#DELXl 
C 

RETURN 

C 

END 
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